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To the Reader 








Microcomputers are beginning to appear everywhere. This is especially true of the 
Radio Shack TRS-80 computers, with thousands of these machines now being 
used in homes, schools, and businesses. Why? 

The size of electronic computer parts has been decreasing rapidly in the past 
few years. Computers—complete systems including printing and storage 
devices—are now small enough to fit easily into small spaces. This new breed of 
computers can easily be carried and used where needed. We no longer have to 
use big computers locked away in big buildings to perform tasks about the home 
or office. We can now take the computer wherever we go. 

With the reduction in size of computers also comes a reduction in cost. For 
as little as $600, we can now own a machine that would have cost $20,000 several 
years ago. 

In fact, most of you, the readers, probably already own some kind of 
TRS-80. This book is a joyful exploration of that inexpensive and powerful 
machine that many of you now have—the TRS-80 Model I with Level II BASIC. 

This book begins by showing you what your TRS-80 can do for you, even 
if you don’t know how to program. The TRS-80’s internal language, BASIC, is 
introduced step by step. (BASIC stands for Beginners All-purpose Symbolic 
Instruction Code, and was developed by John Kemeny and Thomas Kurtz at 
Dartmouth College.) In the early parts of the book, you learn how to get 
BASIC to work for you on your TRS-80. 

We also show you many short programs that introduce and illustrate 
features of the BASIC language. As you progress through the book, you learn to 
understand and read BASIC programs and, ultimately, how to build your own 
BASIC programs. 

The authors of this book are editors of Recreational Computing magazine.* 
We believe that learning to program should, and can, be an enjoyable experience. 
We feel that computer terminology and concepts can be introduced within a 


*We encourage you to write to us at Recreational Computing, P.O. Box E, Menlo Park, CA 94025. 














framework of fu. and exploration, and that when we do this, true learning takes 
place. You will find small games and recreations sprinkled throughout the book. 
We also present application programs and the elements of developing simulation 
routines. Everything is directed toward teaching you how to get the most out of 

your TRS-80—the most use, the most enjoyment, the most satisfaction. 

The TRS-80 computer is a tool that you can use to aid you in whatever 
you are doing. This book is designed to help you fully explore that tool and learn 
some general information about programming that applies to many other 
computers. 

The next section tells you How to Use This Book. Why don’t you first 
browse through that material, then begin your adventures with your TRS-80 and 
BASIC. 











How to Use This Book 








This book is a Self-Teaching Guide. This means that you can use the book to 
teach yourself. Each chapter of the book is composed of short, numbered sec- 
tions called frames. Each frame presents a single idea or topic on the BASIC 
language, the TRS-80, or a program that is being developed. At the end of most 
frames are questions for you to answer or exercises for you to do. You can use a 
piece of paper to cover the answers that are given below the dashed line within 
the frame, if you like. You can also use the paper to write down your answers 
and exercise results before you look at our versions. 

We encourage you to use this book while you are in front of a TRS-80 
computer. Try the programs and exercises that are discussed on the machine. Let 
the TRS-80 be your ‘‘teacher.”’ 

The first page of each chapter briefly lists what the chapter is to cover. 
Scan that list. If you feel you already know the material to be covered, skip to 
the back of the chapter and take the Self-Test. The answers to the Self-Test ques- 
tions list the frame numbers within the chapter from which the question was 
taken. You can review that frame if you have trouble answering the question. 

The material in the book gets more challenging as you move through the 
chapters in order. If you are a beginner, start with the first chapters and don’t 
try to skip around. If you already know some programming, look at the table of 
Contents and feel free to explore some of the later chapters. 

It might be a good idea to glance at the Contents anyway, or to look at the 
Appendixes in the back of the book. These are designed to help you get started 
understanding what the components do and connecting the parts of the TRS-80. 
The appendixes will become useful to you as you get to specific sections. For 
now, just note what is available and where things are within the book. 

As a final note before you start, be aware that as you use the book, enter 
lines into.your computer, answer Self-Test questions, and do the frame exercises: 


YOU CANNOT DO ANYTHING WRONG! 


There is no way you can ‘‘hurt’’ or ‘“‘harm’’ the computer by what you type into 
it. You may make mistakes, but that is a natural part of learning and explora- 
tion. In fact, we introduce deliberate errors in several places as part of the learn- 
ing process. 

So, explore, enjoy, and tell us about your discoveries as you use your Radio 
Shack TRS-80 microcomputer. 
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CHAPTER ONE 


The Radio Shack TRS-80 Computer 








Here your fun begins. In this chapter, we will introduce you to the Radio Shack 
TRS-80, a powerful, friendly computer used in hundreds of thousands of homes, 
schools, and businesses. You will also begin to learn computerese, the jargon or 
terminology of computers, so you will be able to talk about the things you do on 
the TRS-80. 

When you finish this chapter, you will know a few things about the TRS-80 
computer and be able to use the following words and phrases: 


Radio Shack TRS-80 Microcomputer System 
Keyboard 

Video display 

Cassette recorder 

Power supply 

Computer language 

BASIC (specifically, TRS-80 Level II Basic) 
Read Only Memory (ROM) 

Random Access Memory (RAM) 

BASIC program 





And, at the end of this chapter, you will be ready to continue with Chapter 2, in 
which you begin ‘‘talking’’ to the TRS-80! 
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1. The TRS-80 Microcomputer System has four parts, shown in the diagram 
below. 





Cassette recorder 
Keyboard unit (computer is inside) 


What are the four parts of the TRS-80 computer? 


(a) keyboard unit Your answers may be 
(b) video display in a different order. 


(c) power supply 
(d) cassette recorder 








; As you can see in the illustration, the video display, power supply, and cassette 
recorder each has a cable that plugs into the keyboard unit. If you need informa- 
tion on how to set up your TRS-80, see Appendix A, ‘‘Setting Up Your 
TRS-80,”’ or consult the LEVEL IIT BASIC Reference Manual that accompanies 
the TRS-80. You can obtain this reference manual from most Radio Shack 
stores. 


2. The computer is inside the keyboard unit. It consists of a set of ‘‘chips.’’ A 
chip is a tiny wafer containing thousands of microscopic circuits; that’s why the 
TRS-80 is called a microcomputer. 
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Perhaps you have seen pictures of a microcomputer chip resting on the end 
of someone’s finger. We choose a different way to emphasize the small size of a 
microcomputer chip. 








Check all appropriate responses below. 
A microcomputer chip is: 


—__ (a): about the size of a microscope 
——_ (b)_s smaller than a breadbox 

—_ (c)_ too small to be seen by human eyes 
_._ (d)_ about the size of an ant 


—____ (e)_ delicious with avocado dip 


We suspect you checked (b) and (d). What? You also checked (e)? Oh well, tastes 
vary. 


3. | Oops! Maybe we should be more serious. Well, we will try; but it’s difficult 
for us to remember that computers should be used for serious stuff, when they 
are so much fun to use. 

As you work through this book (adventuring as you go!), you will learn a 
computer language called BASIC. A computer language is simply a language you 
use to communicate with a computer. Compared to natural languages (English, 
Spanish, Swahili, etc.), a computer language is very simple. BASIC has a simple 
vocabulary (the list of words it knows) and a very formal syntax (rules of gram- 
mar that it follows). This book will help you enjoy teaching yourself how to 
‘converse’ with the TRS-80. 


What is BASIC? 


a computer language or a simple language for communicating with a computer 
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There are many variations, or dialects, of BASIC. In this book, we will 
describe Level II BASIC for the Radio Shack TRS-80 computer. In Chapter 2, 
you will begin to learn BASIC. 


IMPORTANT NOTICE! Most TRS-80s use Level II BASIC. However, some 
TRS-80s use a different version of BASIC called Level I BASIC, which is com- 
pletely described in the excellent User’s Manual for Level I by Dr. David Lien. 
This manual is available from most Radio Shack stores. 


4. As you learn BASIC, you will also learn to read and understand computer 
programs written in BASIC and start writing original, never-before-seen-on-earth 
programs—your programs. 

A program is a set of instructions. You may have already used or written 
‘‘programs’’ in English (or another noncomputer language). For example: 


—A recipe for baking a cake 

—Instructions for assembling a model from a kit 

—Directions on how to get to someone’s house 

—And, of course, assembling toys, tricycles, playpens, furniture, and so 
on—probably at the last minute on Christmas Eve 


A BASIC program is a set of instructions that tells the computer what to 
do and how to do it in the language the computer understands—BASIC. 
Your instructions to make the computer do what you want it to do, follow- 


ing the rules of BASIC, is called a 


program or BASIC program 


5. BASIC is ‘‘built-in’”’ to the TRS-80. The vocabulary and syntax (rules) are 
stored in the memory of the TRS-80, located in the keyboard unit. BASIC is ac- 
tually stored (or ‘“‘remembered’’) in a set of chips called ROM, which means 
Read Only Memory. 

Information in ROM (or in the memory of the computer) is permanently 
stored, much like information in a printed dictionary or on a phonograph record. 
Have you ever used a pocket calculator? In a calculator, the rules for arithmetic 
and other functions of the calculator are permanently stored in ROM. 

When you turn on the TRS-80, it immediately ‘‘knows’? BASIC—simply by 
looking into its ROM. 

What is ROM? 





Read Only Memory 


The TRS-80 may read information from ROM, but cannot erase it or change it 
in any way. That is why this type of memory is called Read Only Memory. 
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6. Perhaps you have noticed that the keyboard unit has a keyboard. (Hmm 
. .. do you suppose that is why we keep calling it ‘‘the keyboard unit’’?) Let’s 
see what. the keyboard is all about. 





The keyboard is your control center, your means of communicating with 
the TRS-80. You use the keyboard to type information into the computer. As 
you type, the information that you type is stored in RAM (Random Access 
Memory), located inside the keyboard unit. 

RAM is different from ROM. Information can be stored into, or written 
into, RAM. Also, the information in RAM can be erased or changed. RAM is 
like a blackboard or a scratch pad. 

Yes, RAM is just more chips. Good grief! Will those chips never stop? Ac- 
tually, RAM should have been called Read/Write Memory, or RWM, because it 
can be read from, or written into. Unfortunately, RWM is hard to pronounce. 

Answer the following questions by writing RAM and/or ROM. 


(a) Which can be erased or changed? 
(b) Which is permanent and can’t be changed? 
(c) From which can information be read? 


(d) Which is used to store information entered from the keyboard? 


(a) RAM; (b) ROM; (c) RAM and ROM; (d) RAM 


7. What you type on the keyboard is stored in RAM. It also appears on the 
TV screen of the video display so that you can see what you type. Video is just a 
fancy name for TV; so, from now on we will refer to the video display as the TV 
screen. 
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As you will soon see, the computer also prints information on the TV 
screen. The keyboard, together with the TV screen, provides two-way com- 
munication. 

When you type on the keyboard, the stuff that you type is stored in the 


of the TRS-80 and is also displayed, or printed, on 


memory (or RAM); TV screen (or video display) 


8. The power supply, when it’s plugged in, just sits there humming away. 
Touch it—it is slightly warm. The power supply provides the right kind of power 
to the keyboard unit by converting 110-volt AC to low-voltage DC (direct cur- 
rent) required by the computer chips inside the keyboard unit. 

Suppose you turn your TRS-80 on and nothing happens. What might you 


check first? (It is OK to guess!) 


Make sure the power supply is plugged in: (1) power cord to 110-volt outlet and 
(2) power cable to TRS-80 computer! 







To 110 volts 


To keyboard unit 


9. Thousands of programs are available on prerecorded tape cassettes. A 
single cassette, which might cost from $3 to $30, may contain one large program 
or several small programs. Using the cassette recorder, you can quickly load one 
of these programs into your TRS-80, then enjoy the use of a program written by 
an expert. The best source of information on commercially available cassettes is 
Robert Elliott Purser’s Computer Cassette Catalog, P.O. Box 466, El Dorado, 
CA 94623. 

As you learn to program in BASIC, you can also use the cassette recorder 
to record your programs on tape cassettes. Then, when you wish to use your pro- 
gram again, you use the cassette recorder to read the program back into the com- 
puter. The methods for recording and reading programs on tape cassettes are 
described in Appendix B, ‘‘The Cassette Recorder.’’ 

Relax! No questions. Read on. 
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10. OK, you have now had a brief introduction to the TRS-80 and to the 
jargon of computers. If you have not already done so, hook up your TRS-80 and 
plunge into the next chapter. If you don’t know how to hook up your TRS-80, 
then: 


—read Appendix A, ‘‘Setting Up Your TRS-80”’; or 

—read ‘‘Setting Up the System’’ in the Level IT Basic Reference Manual, 
available at most Radio Shack Stores; or 

—yell for help! Ask someone to show you how to hook up your TRS-80. 


Before you move on to Chapter 2, you may wish to take the following 
Self-Test so that you can amaze and delight yourself by how much you have | 
already learned. 


SELF-TEST 


Try this Self-Test, so you can evaluate how much you have learned so far. 





1. The TRS-80 microcomputer has four major parts, described in this chapter. 
In the following diagram, write the names of the four major parts. 


2 


ie 


A microcomputer is called a microcomputer because (check the one that ap- 
plies best): 


— (a) It can be carried by a strong ant. 


— (b) It contains thousands of very tiny electronic circuits in a small 
space (1/4’’ by 1/4’’). 


— (c)_ It can be seen only by mountain sheep with telescopic eyesight. 
— (qd) It is manufactured by leprechauns using miniature tools. 


In the TRS-80, where is the microcomputer chip located? 
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4. We “‘talk’’ to the TRS-80 by usinga___—C—‘CSCSSTCailed 
BASIC. The vocabulary and syntax (rules) for this language are located in a 
special kind of memory in the keyboard unit. What is this type of memory 


called? 


5. How do we get information into the TRS-80? 





6. When we type information into the TRS-80, it is displayed on the TV 
screen and also stored in 
7, What is a BASIC program? 





8. What is the function and purpose of the cassette recorder? 





Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where the topic is 
discussed. You may wish to refer to these for quick review. 


i, (frame 1) / 
Power supply 


Video display 


Cassette recorder 


Keyboard unit 





2. (b) It contains thousands of tiny circuits in a small space (1/4’’ by 1/4’). 
(frame 2) 


In the keyboard unit. (frame 2) 
Computer language; ROM, or Read Only Memory. (frames 3,5) 
We type it on the keyboard. (frame 6) 


Awe w 


RAM, or Random Access Memory. (frames 6,7) 


THE RADIO SHACK TRS-80 COMPUTER 9 


7. A Set of instructions that tells the computer what to do and how to do it. 
(frame 4) 


8. It enables us to save, or store, information on tape cassettes from the 
memory (RAM) of the TRS-80. It also enables us to load information on 
tape cassettes into the memory (RAM) of the TRS-80. (frame 9) 














CHAPTER TWO 


Getting Started 








Now the fun really begins. In this chapter, you will begin learning how to ‘‘talk”’ 
to your TRS-80 using instructions called direct, or immediate, statements. These 
statements are direct or immediate because the computer executes or does them 
immediately after you type them and then press the ENTER key on the 
keyboard. 

A direct statement tells the TRS-80 to do something; the TRS-80 does it im- 
mediately, then waits for your next instruction. 

When you complete this chapter, you will be able to: 


clear (erase the TV screen); 

use direct PRINT statements to tell the computer to print information 
on the TV screen; 

recognize error messages from the computer (in case you make an 
error); 

* correct typing errors or delete a direct statement that contains errors; 
¢ use direct statements to do arithmetic. 


We assume that your TRS-80 is set up and ready to go. If you have not yet 
set up your TRS-80, do so now and begin ‘‘talking”’ to the computer. You can 
find directions on how to set up the TRS-80 in Appendix A, ‘‘Setting Up Your 
TRS-80.”’ 
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I’m listening. 


1. Ready? Let’s begin. We assume that your TRS-80 is hooked up and ready 
to go, but is not yet turned on. So, first turn on the keyboard unit and the video 
monitor. 

The power switch for the keyboard unit is in the back on the right side, as 
you face the keyboard unit. To turn on the TRS-80, press it in—it will lock. To 
turn off the TRS-80, press it—it will pop out. 





The power switch for the video display is in front, on the upper right. To 
turn on the video display, press it in—it will lock. To turn off the video display, 
press it—it will pop out. 
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2. | When you first turn on the keyboard unit and the video display, the TV 
screen will look like this: 


MEMORY SIZE? 


Ignore the question. In this beginner’s book, we will not worry about the answer, 
which might be of interest to advanced or expert computer users. 

Find the large ENTER key on the keyboard. Press it. The TV screen should 
now look like this: 


The arrow (>) is called the 

prompt and the dash (__) is MEMORY SIZE? 

called the cursor. RADIO SHACK LEVEL II BASIC 
READY 


> 
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You press the ENTER key to make the TRS-80 READY for you to use. You 
know that it is ready for you to use when it prints READY on one line and a 
prompt and a cursor on the line below. The prompt (>), followed by the cursor 
(_), tells you that it is your turn to do something. 

Whenever you see the prompt and the cursor, you know that it is your turn 
to do something. If you don’t do something promptly (oops! sorry about that 
pun), the TRS-80 will simply wait patiently until you are ready to use it. 


(a) What does the prompt look like? 
(b) What does the cursor look like? 


(a) >; (b) — 


3. The keyboard is your control center. 





Let your eyes wander over the keyboard. Find the CLEAR key. Press the 
CLEAR key. This ‘‘clears’’ or ‘‘erases’’ the TV screen. That is a// that happens; 
the CLEAR key does not clear, or erase, anything inside the computer (which, as 
you know, is in the keyboard unit). 

The screen now looks like this: 


I get it! The screen is clear (empty), 
. except for the cursor. 
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Now press the ENTER key. The screen will look like this: 








Whenever you see this 
you know it is your 
turn to do something. 


You know that it is your turn to. do something because you can see the 


and the______ on the screen. 


prompt (>); cursor (_.). Together, they look like this: >. 


If we ask you to ‘‘clear the screen,’’ please press the CLEAR key, then press the 
ENTER key. Remember, only the TV screen is cleared, or erased. Information | 
inside the keyboard unit is not affected. 





4. Your TRS-80 is waiting patiently for you to do something. So, try this: 
Type your name and then press the ENTER key. The TRS-80 will probably print 
an error message on the screen. Here is what happened when Karl typed his 
name. 


Karl typed his name: 


As Karl typed, the cursor 
moved to the right. 
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Then Karl pressed the ENTER key: 





- *When we say ‘“‘it”’ 
>KARL 
Karl typed his name. ————" a oe we mean the TRS-80 


It* printed this —————_. | reavy 


and also this er - 
and then this 





The strange message 7?SN ERROR means that the TRS-80 did not under- 
stand Karl. Karl (who is eleven and proud of his name) was quite surprised. 
After all, how could Ais name be an error? We explained to Karl that the com- 
puter simply didn’t understand him. The word KARL is not one of those special 
words (in BASIC) which the TRS-80 understands. Aha! said Karl, and he, as you 
will also, began to learn about those few special words that the TRS-80 does 
understand. 


(a) If you type something, then press the ENTER key, and the TRS-80 prints 
2SN ERROR, what is it trying to tell you? 





(b) After typing 72SN ERROR, what does the TRS-80 do? 





(a) It does not-understand you. 
(b) It types READY, then prints a prompt and a cursor. 


The READY, the prompt (>), and the cursor (__) are the TRS-80’s way to let 
you know that everything is OK. It just didn’t understand you, because it doesn’t 
know English. After you make a ‘‘mistake,”’ it will print an ‘‘error’’ message 
followed by the prompt and the cursor so you know it is ready for you to try 
again. 

SN ERROR means SYNTAX ERROR. You will get this message when you 
type something that TRS-80 Level II BASIC does not understand. This is one 
example of an error message. Many other error messages are possible; you will 
encounter others as you experiment with your TRS-80 or try out our examples 
and exercises. See Appendix D, ‘‘Error Messages,’’ for a complete list of TRS-80 
Level II BASIC error messages. 
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5. |The TRS-80 understands only a few words as instructions to do something. 
So, avoid error messages. Learn how to tell the TRS-80 to do what you want it 
to do. How? By learning the words that the TRS-80 understands. 

The TRS-80 understands a language called BASIC. In BASIC, there are 
special words to tell the computer to do special things. 


A special BASIC word ————_——_-» print 


PRINT tells the TRS-80 to print something on the TV screen. Here is how to get 
the TRS-80 to print your name. Karl will demonstrate. 


First, Karl clears the screen. He presses the CLEAR key, then presses the 
ENTER key. 


The screen is clear, 
except for the prompt 
and the cursor. 





Then, Karl types ———————-» | >print "KARL". 


Note that KARL is enclosed As Karl typed, the cursor 
moved to the right. 


in quotation marks. 





Next, Karl presses the ENTER key. 






Karl typed this ~——~—————_——_>[ sprint "KARL" 













It printed this ———————————-_ KARL 
: READY 





and this ~~ 








No questions. Read on! 
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6. Try it yourself. Since we don’t know your name, try it with Karl’s name. 


You press CLEAR, then press ENTER. 
You type PRINT "KARL" (remember the quotation marks!). | 
You press ENTER. | 


If you have done everything exactly as we have suggested, the screen will 
now look like this: 
>PRINT "KARL" 
KARL 
READY 
> 
If the screen doesn’t look like the above screen, try again. Be careful to spell 
PRINT correctly and do remember to put quotation marks before and after 
Karl’s name. 


PRINT "KARL" 


” 


To type a quotation mark, hold down the SHIFT key and press the [2] key. 
Now, pretend that you are the TRS-80 and complete the following. 


We type: PRINT "MY HUMAN UNDERSTANDS ME" 


It prints: 


MY HUMAN UNDERSTANDS ME 
READY 
> 


7. The statement PRINT ‘“MY HUMAN UNDERSTANDS ME?’ is called a 
direct PRINT statement. It tells the TRS-80 to print something on the screen. 
The computer prints the verbal message within the quotation marks that follows 
the word PRINT. The message enclosed in quotation marks is called a string. 


PRINT "MY HUMAN UNDERSTANDS ME" 


This is a string. It is enclosed in quotation marks. The quotation marks enclose 
the string, but are not part of the string. 


A string is any bunch of keyboard characters, typed one after the other. For 
example: 


A string can be aname: KARL 
A string can be a license plate number: SAM 123 
A string can be gibberish: AB#$%JFDZ?* 
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A string may include: 


Numerals (0, 1, 2, . . .) 
Letters (A, B, C,.. .) 
Special characters (+, -, *, /, t, # %, $, comma, period, space, etc.) 


Since double quotation marks (’’) define the beginning and the end of a 


string, do you think they can be used as a character in the string? 





No, they cannot. (That would really confuse the computer!) However, single 
quotes (’) can be used in a string. For example: 







The ral quote key looks like 
7 


We type: PRINT "THEY SAID, ‘ALL RIGHT.'" ; 
this 





It prints: THEY SAID, ‘ALL RIGHT.’ 
READY 
> 


8. Complete the statement so that the computer prints what we say it prints. 


We type: PRINT 





It prints: THE ROAST IS DONE. TURN OFF THE OVEN 
READY 
>. 


"THE ROAST IS DONE. TURN OFF THE OVEN." 


Did you remember the quotation marks? Someday, of course, the computer will 
turn off the oven! Almost anything electric can be controlled by the computer, 
with the proper electrical connections and program, of course. 


9. Have you made any typing mistakes yet? In case you should make a typing 
error, BASIC has a dandy way of fixing it. Watch while we make a typing error. 


We type: PTINT "DENTIST APPOINTMENT TODAY" 


It prints: ?sN ERROR 
READY 
> 


We mispelled PRINT, so the computer doesn’t know what we want. However, if 
we had noticed that we hit T when we meant to hit R, we could have corrected 
our mistake by using the backspace key, which looks like this: . Each time 
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we press the backspace key, the cursor moves back (to the left) one space and 
erases the character in that space. 








We type 
Then press 


>ABCDE_ 
>ABCD_, 


Press again —————" ] srs > 


ae ee >AB_ 
and yet again 





What will happen if we press two more times? 


The cursor will move two places to the left, erasing A and B. 


10. Complete the following so that the computer prints what we want it to 
print. 


We type: PRIMR______ "TOMORROW IS YOUR MOTHER'S BIRTHDAY!!!" 


It types: TOMORROW IS YOUR MOTHER'S BIRTHDAY!!! 
READY 


[+] (Erase M and R, then type N and T.) 


Remember: To erase the last character typed, press . To erase two 
characters, press twice. And so on. You can’t erase the prompt, though, 
no matter how many times you. press the key! 


11. The backspace ({<]) key is great for deleting errors that you have just 
made. But suppose you are typing a long line and are almost to the end when, 
alas, out of the left corner of your left eye, you spot a mistake way back at the 
beginning. If you complete the line and press ENTER, you will probably get an 
error message. You would /ike to just scrub the line—that is, erase it from the 
beginning. 
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Well, you can! Hold down the SHIFT key and press the backspace key. 


We type: PRINT "ONCE UPON A TIME THERE WAS A 


We hold down the SHIFT key 


and press the backspace key. 





Poof! The entire line disappears. The computer erases the entire line and turns 
on the cursor. 
Whenever we see the cursor, what is the computer telling us? 





It is our turn to do something. 


IMPORTANT NOTICE! From now on, we will usually omit the READY 
followed by the prompt (>) and cursor (_) in order to save time and space. 


For example, instead of We type: PRINT "KARL" 
It prints: KARL 


READY 
> 


We might show only this | We type: PRINT "KARL" 


It prints: KARL 





Please read above 
IMPORTANT NOTICE. 
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12. Wecan also tell the TRS-80 to do arithmetic and print the answer. In other 
words, we can use the computer as a calculator. For example, we can use the ad- 
dition key (+) to tell the computer to add 7 and 5, as follows. 


We type: PRINT 7 +5 
It prints: 12 (Remember, we are omitting READY and >__.) 


The statement PRINT 7 + 5 tells the TRS-80 to compute the value of 7 + 5 (do 
the arithmetic) and then print the answer. 

Note that we tell the computer to do actual calculations by not using quota- 
tion marks in the PRINT statement. Compare the formats below. 


with ”’ without ”’ 


We type: PRINT "13 + 6" We type: PRINT 13 + 6 


It prints: 13 + 6 It prints: 19 


PRINT "13 + 6,' PRINT )13 + 6 


This is a string. The com- This is a numerical ex- 

puter prints it exactly pression (no quotation 

as it appears. marks). The computer 
does the arithmetic and 
prints the result. 





Your turn. Complete the following, showing what the TRS-80 prints. 


We type: PRINT 23 + 45 


It prints: 

We type:PRINT 1+ 2+ 34445 Remember, we are omitting the READY and 
I Ce >__ which the TRS-80 prints when it finishes 
t prints: doing something. 





We type: PRINT "1 + 2+ 3 +4 +5" 
It prints: 


68 
15 
1+ 243+ 4+4+5 
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13. Subtraction? Of course. Use the subtract (-) key. 


Uh oh! Overdrawn. 


We type: PRINT 25.68 - 37.95 ° 


We type: PRINT 7 - 5 





It prints: 2 


It prints: -12.27 


Complete the following, showing what the computer typed. 
We type: PRINT 29 - 13 

It prints: 

We type: PRINT 1508 - 2990 

It prints: 

We type: PRINT "1589 - 2999" 

It prints: 

We type: PRINT 67 + 32 - 28 

It prints: 


16 

~58D 

15828 - 2888 
71 


14. BASIC uses + for addition and - for subtraction, just as we do with paper 
and pencil. For multiplication, however, BASIC uses the asterisk (*). 

We type: PRINT 7*5, 

It prints: 35 

We type: PRINT 1.23*4.567 


It prints: 5.61741 






We type: PRINT 9%*8 





** 


It prints: 
P Use to multiply 





We type: PRINT 3.14*29 


It prints: 
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We type: PRINT 2*3 + 4 


It prints: 


We do the arithmetic like this: 2*3+4 = 6+4 = 10. 


15. For division, we use the slash (/) key. 
We type: PRINT 7/5 

It prints: 1.4 

We type: PRINT 13/16 

It prints: 9.8125 

We type: PRINT 2473 Use oa divide 
It prints: 

We type: PRINT 3.1474 

It prints: 

We type: PRINT 374 - 2/5 


It prints: 


(3/4 - 2/5 = 0.75 - 0.4 = 0.35) 
16. Now let’s think metric. Mary Jo is 66 inches tall. How tall is she in cen- 
timeters. Hmmm .. . we seem to recall: 
1 inch = 2.54 centimeters 
We type: PRINT 66*2.54 


It prints: 167.64 
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And so, with the help of our ever-willing TRS-80, we enter the metric age and 
learn that Mary Jo is 167.64 centimeters tall. (Call it 168 centimeters, if you 
wish.) 


(a) A certain conga drum is 29.5 inches tall. (Interestingly, that is also the 
usual height of an office desk or a dining room table.) Write a PRINT 
statement to compute and print the height of that conga drum (or desk or 


table) in centimeters. 


(b) A football field is 3,600 inches long. Write a PRINT statement to compute 


the length of a football field in centimeters. 


(a) Wetype: PRINT 29.5*2.54 or PRINT 2.54*29.5 
It prints: 74.93 

(b) Wetype: PRINT 3699%2.54 or PRINT 2.54*3689 
It prints: 9144 


Perhaps you are accustomed to thinking of a football field as being 100 yards 
long. OK, do it this way. 


We type: PRINT 198*36*2.54 

It prints: 9144 
17. More metric. Let’s turn it around. An ancient king named Fred measures 
100 centimeters from the tip of his nose to the end of his outstretched hand 


(which, of course, is on the end of his outstretched arm). How long is that in 
inches? 


1 centimeter = 1/2.54 inches 
We type: PRINT 19972.54 
It prints: 39.3701 


Does the answer look familiar? Perhaps you recall that 100 centimeters is equal 
to one meter and one meter is equal to about 39.37 inches, a little more than one 
yard, 


(a) Ata certain time during his legendary life, Firedrake the Dragon measured 
1,000 centimeters from the tip of his fire-breathing nostril to the longest 
point of his multiforked tail. Write a PRINT statement to compute 


Firedrake’s length in inches. 
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mn 


(b) It is difficult for some people to think of the length of a dragon in inches. 
Write a PRINT statement to compute the length of Firedrake in feet. 


(Remember, there are 12 inches in one foot.) 












Of course, I have 
grown since this 
book was published. 


(a) Wetype: PRINT 199272.54 
It prints: 393.791 


Firedrake is about 393.7 inches long. 
To the nearest inch, Firedrake is 
394 inches long. 


(b) Wetype: PRINT 1999/2.547/12 
It prints: 32.8984 


Aha! Firedrake is about 32.8 feet long—longer than our car but shorter 
than our house. Sigh . . . metric is easy for kids, but hard for those of us 
who approach Firedrake’s age. 


18. If you have a bicycle, it probably has a wheel size of 20, 26, or 27 inches in 
diameter. The wheel size, or diameter, is measured from the outside rim of the 
tire straight through the center (the hub) to the outside of the tire rim on the 
other side. Got that? Never mind, if you haven’t. Here’s a diagram. In the 
diagram, we use D to represent the diameter of the wheel. 


C=nD 


D 
where 7 = 3.14159... | 


Our problem: How far does a bike travel in one full turn of the wheel? That is, 
given the diameter (D) of the wheel, how far does the bike travel in one revolu- 
tion of that wheel? 

Hmmm .. . If D is the wheel diameter, then the distance traveled must be 
the circumference (remember?) of the wheel. Let’s call the circumference C. 
Perhaps you recall: 


C=nD where n = 3.14159... 
We will use 3.14 as a crude approximation to 7. 
We type: PRINT 3.14*29 


It prints: 62.8 
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So, if your bike has a 20-inch wheel, it travels 62.8 inches each full turn of the 
wheel. 

Your turn. Write PRINT statements to compute the distance traveled for 
(a) a 26-inch wheel and (b) a 27-inch wheel. 


(a) You type: 

It prints: 81.64 
(b) You type: 

It prints: 84.78 


(a) PRINT 3.14*26 
(b) PRINT 3.14*27 


19. Hark back, if you will, to our metric problems in frame 16. We said that 
Mary Jo is 66 inches tall. Well, in real life, people usually give their heights in 
feet and inches. If you asked Mary Jo how tall she is, she would probably tell 
you that she is 5 feet, 6 inches tall. 

Given feet and inches, we can write a simple PRINT statement to provide 
height in inches. 





We type: PRINT 5*12 + 6 

It prints: 66 

Judy is 5’ 3” tall. Write a PRINT statement to compute her height in inches. 
We type: 

It prints: 63 


As you probably suspect by now, we are leading up to a new problem. 
Problem: Before he reached his full stature, King Kong was once 37’ 8” tall. 
How tall was he in centimeters? We solve it this way. 


We type: PRINT(37*12+8)*2.54 


It prints: 1148.88 


Aha! Note how we have cleverly introduced the use of parentheses (_ ). The rules 
for using parentheses are very, very similar to the rules that you learned in 
elementary school math classes. In case you have forgotten, consult Appendix C, 
which has more information on how the TRS-80 does arithmetic. 
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So, try one yourself. A certain hobbit, when he joined the fellowship to 
return The Ring to the fires of Mt. Doom (and thus save Middle Earth), was 
2' 7" tall. Write a PRINT statement to compute his height in centimeters. 


You type: 


It prints: 78.74 


PRINT 5*12+3 
PRINT(2*12+7)*2.54 or PRINT 2.54*(2*12+7) 
20. In BASIC, the rules for arithmetic are very similar to the rules we use in 
‘“‘everyday’’ math. Remember, though, use an asterisk (*) for multiplication and 
a slash (/) for division. : 

It’s a very warm day, about 87 degrees Fahrenheit. Let’s see now, what’s 


that in Celsius? The formula for converting from degrees Fahrenheit (F) to 
degrees Celsius (C) is usually shown as follows: 


C= 26 - 32) 

Here are three ways to compute the degrees Celsius (C) equivalent to 87 degrees 
Fahrenheit. 
(a) Wetype: print (579)*(87 - 32) 

It prints: 30.5556 
(b) Wetype: PRINT 579*(87 - 32) 

It prints: 39.5556 
(c) Wetype: PRINT 5*(87 - 32)79 

It prints: 39.5556 


For most people, body temperature is about 98.6 degrees Fahrenheit. Write 
a PRINT statement to compute body temperature in degrees Celsius. 


You type: 


It prints: 37 


PRINT (5/9)*(98.6 - 32) or 
PRINT 5/79*(98.6 - 32) or 
PRINT 5*(98.6 - 32)/9 
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21. Perhaps you have noticed that the TRS-80 will print numbers with up to six 
digits . . . no more. If the complete result of an arithmetic operation is more 
than six digits, the TRS-80 will round the printed result to six digits. 


We type: PRINT 1.2345*6.789 







It prints: .8.38 102, 


6 digits 


The TRS-80 printed six digits. 


aye 


The complete, exact answer is 8.3810205, which has eight digits. The TRS-80 
printed the first six digits of the complete answer. The printed answer was 
rounded at the sixth digit. 

Rounded? OK, here is another example. 


We type: PRINT 2/73 
It prints: .666667 


The complete answer cannot be given with a finite number of digits. It goes on 
forever, and ever, and... . So, our TRS-80 prudently rounded the result to a 
more printable six digits, rounded at the sixth digit. 


six digits 
.66666666666666 . . . and so on 


If the seventh digit is 5 or more, the TRS-80 
increases the sixth digit by one. 


(a) Suppose the complete result of an arithmetic operation is 1.23456789. What 
will the TRS-80 print? 


(b) Suppose the complete result is 3.1415927. What will the TRS-80 print? 


(c) Suppose the complete result is 123.5555. What will the TRS-80 print? 


(a) 1.23457 
(b) 3.14159 
(c) 123.556 


IMPORTANT NOTICE! For more information on just how the TRS-80 does 
arithmetic, see Appendix C. 
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22. Well, as we near the end of this chapter, we would like to introduce you to 
one more handy operation. This operation is used to compute powers of 
numbers. Here are some examples. 


Area of a square: A = S?, where S is 
3 the length of a side. The area of the 
square shown is 


A = St = 3 = 3x3 =9 


3? is called the second power of 3. 


Volume of a cube: V = S’, where S is 
the length of a side. If S = 5, then 


V=aS = 53 = 5x5x5 = 125 
5 5° is called the third power of 5. 
Got it? 3? means 3 times 3, or 3x3; 5° means 5 times 5 times 5, or 5X 5X5. 
Complete the following: 
(a) 7? means 


(b) 8* means Hmmmn . .. it is sort of like 


shorthand—saves time! 


(b) 8 times 8 times 8 times 8, or 8x 8x88, or the fourth power of 8 





(a) 7 times 7, or 7X7, or the second power of 7. 


23. In math books, powers of numbers are shown by using superscripts. 
The third power of 8 is 8°" This is a superscript 
The second power of 7 is 77> This is a superscript 
The seventeenth power of 2 is 2’) *"-——-————— This is a superscript 
Of course, 2!’ could also be written as follows: 
2x2x2x2x2xX2xX2xX2xX2xK2K2xK2xX2xX2xX2x2x2 


So, you see, there really is some advantage in using superscripts. But, alas—our 
TRS-80 can’t print superscripts. (Perhaps a few moments of silence follow.) But 
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there is another way to do it. Use the up arrow key ( ) to compute powers of 
numbers. 


We type: PRINT 3+2 


It prints: 9 







Aha! 312 is the same as 37. 


We type: PRINT 5+3 


It prints: 125 


Your turn. Write PRINT statements to compute 8°, 77, and 2!’. 


(a) 


(b) 


(c) 


24. 


83 
You type: 


It prints: si2 


7 
You type: 


It prints: 49 


2} 7 
You type: 


It prints: 131972 


PRINT 843 
PRINT 217 
PRINT 7t2 


Suppose you put $123 into a savings account certificate at Erosion Savings 


and Loan, which yields 8% interest per year. (With inflation at about 12% per 
year, your money will decrease in value at only 4% per year.) The amount of 
money in the account after N years can be computed using the formula shown 
below: 


A = P(I + R/100)% 

where: 

Principal, or original amount put into the account 
Rate of interest per year, in percent 

= Number of years 

= Amount in account at the end of N years 


r>Zzxny 
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In our problem, P = $123, R = 8%, and we want to know the value of A for 
N = 2, N = 5, andN = 9 years. 







We type: PRINT 123*(1 + 8/198)+2 
Let’s call our answers 


$143.47 and $180.73 





It prints: 143.467 «—— After 2 years 





We type: PRINT 123*(1 + 87198)+5 


It prints: 189.727 ~—— After 5 years 


Your turn. Write the PRINT statement for N = 9. We have supplied the 
result printed by the computer. 


We type: 


It prints: 245.877 <—__—__———— After nine years our money almost 
doubled. (But it buys less than it did 
nine years ago.) 


PRINT 123*(1 + 8/7188)+9 


Appendix C shows how to tell the TRS-80 to round money to the nearest penny. 


25. Perhaps you have heard the ancient story about the wise person who did a 
great service for a wealthy king. The king asked this person what reward would 
be appropriate. The person’s request was simple. She asked only for grains of 
wheat, computed as follows. For the first square on a chessboard, one grain of 
wheat; for the second square, 2 grains of wheat; for the third square, 4 grains of 
wheat, and so on, doubling at each square. It goes on as shown below: 


Square Number Grains of Wheat 


1 1 
2 2 
3 4 
4 8 
3 16 


And so on. For square N, there will be 2N-1 grains. Let’s find out how many 


' grains are on square 16. 
We type: PRINT 2t15 (since N = 16, N-1 = 15) 


It prints: 32768 
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Your turn. Write a PRINT statement to find out how many grains of wheat 
for square number 64. 


We type: 


It prints: 9.22339E+18 Huh! What kind of number is this? 
Read on. 





26. In the last frame, you encountered a very large number: 9.22339E + 18. 
Here is another way to write that number: 


9,223,390,000,000,000,000 


That’s a lot of wheat! It was more wheat than existed in all the kingdoms 
everywhere at the time. The king, of course, soon discovered that he had been 
tricked . . . but that’s another story. 

Numbers such as 9.22339E + 18 are called floating point numbers in com- 
puterese. Don’t worry about floating numbers now. As you begin to use com- 
puters, you will encounter them now and then. If you wish to understand 
floating point numbers better, look at Appendix C. In the meantime, we will 
move on, using more familiar numbers and leaving floating point numbers to be 
enjoyed by those few people who. . . enjoy floating point numbers. 

Yes, this is a rest frame—a place to relax with no questions to answer! 





27. Keep relaxing, for you are nearing the end of this chapter. We hope that 
you have had a taste of adventure, the adventure of exploring the TRS-80 com- 
puter. (If you don’t think of it as an adventure, watch a child play with a com- 
puter. Especially, watch the eyes!) 





34 TRS-80 BASIC 


And now, you have a choice. You may plunge on into Chapter 3, or you 


may take the Self-Test that follows. We encourage you to take the Self-Test. It 
will help you expand on the tiny part of the adventure that you have already had 
and, at the same time, hone your adventuring skills for further exploration. 


Whichever . . . enjoy. 


SELF-TEST 


Try this Self-Test to find out how much you have already learned. Good luck! 


1. 


In this chapter, we used direct statements. When we type a direct statement 
and press ENTER, what does the TRS-80 do? 


Assume that you are typing a statement into the computer, and you make a 
typing error. How would you correct the error? 


How do we erase an entire line? 


Write the symbols used in TRS-80 BASIC for the following arithmetic 
operations: 


addition 

subtraction 

multiplication 

division 

power of a number 

Complete the following: 

We type: PLEASE DO THE HOMEWORK ON PAGE 157 

It prints: 

Complete the following: 

We type: PRINT "PLEASE DO THE HOMEWORK ON PAGE 157" 


It prints: 
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Complete the following: 

(a) Wetype:prRINtT 2*3 + 4%*5 
It prints: 

(b) Wetype:print "2*3 + 4*5" 
It prints: 

(c) We type: PRINT (73 + 68 + 85)/3 
It prints: 


On the surface of planet Earth, one kilogram equals 2.2 pounds (1 kg. = 
2.2 Ib.). 


(a) An obscure giant once weighed 1,234 kilograms. Write a PRINT state- 
ment to compute his weight in pounds. 


You type: 
It prints: 2714.8 


(b) Suppose that R2D2 weighs (on Earth) about 500 pounds. Write a 
PRINT statement to compute his weight in kilograms. 


You type: 
It prints: 227.273 


Our utility company measures gas in therms and electricity in kilowatt- 
hours (KWH). They charge us at the rate of $0.23 per therm and $0.04 per 
KWH. In February, we used 116 therms of gas and 297 KWH of electricity. 
Write a PRINT statement to compute the amount we owe to the utility 
company. 


* You type: 


It prints: 38.56 


A well-tuned Honda used 22.8 gallons on a trip. At the beginning of the 
trip, the odometer (mileage counter) reads 12,346 miles. At the end of the 
trip, it read 13,193 miles. Write a PRINT statement to compute the number 
of miles per gallon—use the beginning and ending odometer readings and 
the number of gallons in your PRINT statement. 


You type: 


It prints: 37.1491 
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11. 


12. 


Watch out for this one! Write a PRINT statement to compute the number 
of turns per mile for a bike with a 26-inch wheel. In other words, how 
many times does the wheel go around while the bike goes one mile? 
Remember, one mile = 5,280 feet. 


You type: 
It prints: 776.29 


Congratulations! You are the big winner on a TV game show. Your prize is 
selected, as follows. A number from 1 to 1,000 is chosen at random. Call it 
N. You then select one, and only one, of the following prizes. You have 60 
seconds to make your selection. 


PRIZE NO. 1: You receive N dollars 
PRIZE NO. 2: You receive D dollars, where D = 1.01N 


Perhaps you recognize the formula for D. It is the amount you would 
receive if you invested $1 at 1% interest per day, compounded daily for N 
days. Fortunately, you brought your trusty TRS-80 with you. For each of 
the following values of N, write a PRINT statement to help you decide 
which prize to take. 


(a) N = 500 

You type: 

It prints: 144.764 Take PRIZE NO. 1! 
(b) N = 789 

You type: 


It prints: 2567.58 Take PRIZE NO. 2! 
All right! With $2,567.58, you can buy three more TRS-80s! 


Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where the topic is 
discussed. 


1. 


The TRS-80 executes the direct statement immediately (or directly, if you 
prefer). After executing the statement, the TRS-80 prints READY, then 
prints the prompt (>) and the cursor (__). (frame 7) 


Press the key to erase the mistake, then type the correct character. 
(frame 9) 


Hold down the SHIFT key and press the key. This erases the entire 
line, leaving only the prompt and cursor (>__). (frame 11) 
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on NN 


addition + 
subtraction - 
multiplication * 
division / 
power of number t (frames 12-15, 23) 


?5N ERROR (The TRS-80 does not understand what is wanted.) (frame 4) 
PLEASE DO THE HOMEWORK ON PAGE 157 (frames 5-7) 
(a) 26 (b) 2*3 + 4*5 (c) 75.3333 (frames 12, 19, 20) 


(a) PRINT 1234*2.2 or PRINT 2.2*1234 (frame 16) 
(b) PRINT 59972.2 (frame 17) 


PRINT .23*116 + .94*297 OF PRINT .94*297 + .23*116 (frame 18) 
PRINT (13193 - 12346)722.8 (frame 19) 
PRINT 5288/(3.14*26/12) OF PRINT 5280*12/(3.14*26) 


This is distance Inches in 
traveled in one one mile 
turn, in feet 


Note the use of parentheses in the above two ways of solving this problem. 
In the expression 5280/(3.14*26/12), the part inside parentheses is com- 
puted first, then divided into 5,280. For more information on how the 
TRS-80 does arithmetic, see Appendix C. (frame 20) 


(a) PRINT 1.91+592 
(b) PRINT 1.911789 (frames 22-25) 











CHAPTER THREE 


Basic Programs 








This chapter introduces some of the BASIC statements you will use most often in 
your TRS-80. From here on, we can begin to write interesting programs for 
home, school, and personal use. 

In this chapter, you will learn what the following statements and commands 
mean, how they work, and how to use them. 


LET, INPUT, GOTO, PRINT, NEW, LIST, RUN 


You will also learn how you can enter programs into the memory of the 
computer, then tell the computer to do what the program tells it to do. You will 
learn about variables and be able to supply values for variables used in BASIC 
programs. 

When you have finished this chapter, you will be able to: 


¢ write short programs to fill the screen with your name; 

¢ write programs in which values are assigned to variables by means of 
LET statements or INPUT statements; 

e distinguish between and use numeric variables and string variables; 

¢ write programs in which a value calculated by a BASIC expression is 
assigned to a numerical variable in a LET statement; 

e store a BASIC program in the computer’s memory; 

© erase an unwanted program from the computer’s memory, LIST a pro- 
gram currently in the computer, and RUN (execute) a program; 

¢ edit, correct, and delete statements in a stored program; 

© write programs that use the GOTO statement to repeat a portion of a 
program or to skip over a portion of a program; 

¢ write PRINT statements that identify printed results with descriptive 
messages. 


We will emphasize having fun while learning things that can be used for both fun 
and serious uses of the computer. 
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1. Now we are ready to enter a program in the memory of the TRS-80. Our 
program causes the TRS-80 to put Karl’s name on every line on the screen. Here 
is the program. 


This is a program. 





18 CLS 





28 PRINT "KARL" 
38 GOTO 20 Whey 


The above program consists of three statements. 


This is astatement: i9 cis 
This isastatement: 29 PRINT "KARL" 
This isastatement: 3¢ Goto 2a 


In the next few frames, we will describe the program, then show you how to 
enter it into the memory of the TRS-80 and tell the computer to do what the pro- 
gram says to do. 


2. Each statement in the program begins with a line number, which identifies 
the statement. 


12 CLS 28 PRINT "KARL" 38 GOTO 20 
Line number Line number Line number 


When you type a statement that begins with a line number, the statement is not 
executed immediately when you press the ENTER key. Instead, it is stored in the 
computer’s memory for later execution. To store a statement in the computer’s 
memory, type it with a line number and press the ENTER key. 

Statements without line numbers are called direct statements. You learned 
about them in Chapter 2. Direct statements are executed immediately after you 
press the ENTER key. 


(a) What happens when we type a statement that begins with a line number? 








(b) What happens when we type a statement without a line number, then press 
the ENTER key? 








(a) The statement is stored in the computer’s memory for later execution. That 
is, the computer ‘‘remembers’’ the statement. 


Fa 
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(b) The computer executes the statement immediately after we press the 
ENTER key, then ‘‘forgets’’ the statement. Statements without line 
numbers do not remain stored in the computer’s memory. 


3. | Line numbers tell the computer the order in which it is to follow statements 
in the program. Line numbers don’t have to be consecutive integers (e.g., 1, 2, 3, 
4, 5, . . .). Instead, it is better to number by tens as we do in the following pro- 
gram. Then, if we wish, we can easily insert or add more statements between the 
ones we already have. 


18 CLS 
28 PRINT "KARL" 
38 GOTO 29 


How many additional statements could be added between line 20 and line 30? 


9 statements (lines 21, 22, 23, 24, 25, 26, 27, 28, and 29) 


Of course, you don’t have to number by tens. If you prefer numbering by thir- 
teens or fives or jumping around, go ahead! 


4. Before we store a program, we must first remove or erase any programs 
that may already be stored in the memory. If we don’t do this, the new program 
that we enter may become intertwined with an old program, resulting in . . . con- 


fusion! 
Here is how we erase old programs and get the TRS-80 ready to accept a 


new program. 


We type: new and, of course, we press the ENTER key. 


The screen looks like this: READY 
> 


The TRS-80 has erased the portion of its memory that stores BASIC programs. It 
is now ready to accept a new program. 


41 


ag ee a ae ee 





42 TRS-80 BASIC | 
| 
| 


How do we erase, remove, or delete an old program from the computer’s 
memory? 








We type new and press the ENTER key. Note: If we misspell new, we may get 
an error message. For example: 


We type: nu 
It prints: ?sN ERROR 


Our computer doesn’t appreciate puns, but if we type new correctly and press 
ENTER, all is well. 





5. Now we are ready to enter our three-line program shown in frames 1 and 3. 
Here it is again. 


1@ CLS 
20 PRINT "KARL" 
38 GOTO 28 
Before we enter the program, we must first erase any old program by 


typing SCC and pressing the ENTER key. To enter the 
program, we type the first line (10 CLS) and press the ENTER key, then type the 
second line (20 PRINT ‘‘KARL’’) and press the ENTER key, then type the 


and 


new; third line (30 GOTO 20); press the ENTER key. 
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6. You enter the program. First type NEW and press the ENTER key. 


You type: NEw 


It prints: READY Remember: 


Then type each line of the program. 
After typing each line, press the 
ENTER key. 


You type: 19 cLs 
228 PRINT "KARL" 


3@ GOTO 2% 


If you make a typing error, correct it by using the key. Or, if you have 
already pressed ENTER, simply retype any line in which you made an error. 
The program is now stored in the memory of the TRS-80. The TRS-80 is 
waiting patiently for your next instruction. 
No questions. Move on to the next frame. 


7. Hmmm... we wonder if the program really is stored in the memory. Let’s 
find out. 

First, clear the screen by pressing CLEAR, then pressing ENTER. Then, 
type LIST and press the ENTER key. 





You type: List 


It prints: 19 cLs 
29 PRINT "KARL" 
3@ GOTO 28 
READY 
>- 

LIST tells the computer to print on the screen all of the program statements 
that are currently stored in its memory. After listing the program, the TRS-80 
prints READY to let you know it is your turn again. If there is no program 
stored in its memory, the computer will simply print READY. 

How do we tell the computer to print the program that is currently stored 


in its memory? 


We type LIST and press the ENTER key. 


The TRS-80 will then print a copy of the program in its memory on the TV 
screen. If there are mistakes in the program, correct them by retyping any line 
(10, 20, 30) that has a mistake. Then list the program again—repeat until all is 
well! 
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8. If all has gone well, our program is correctly stored in memory. (In the next 
frame, we will show you what happens if the program is not stored correctly:) 
Next, we will tell the TRS-80 to do what the program tells it to do. We will tell 
the TRS-80 to RUN the program. 


Type RUN and press ENTER. 


As you can see, the TRS-80 quickly prints Karl’s name everywhere down 
the left side of the screen. Here is a snapshot of the screen. 





Watch the bottom line of the screen. The TRS-80 is continuing to print 
Karl’s name on the bottom line. Each time it does, all the other KARLs are 
pushed up (scrolled) one place and the top KARL is ‘‘pushed off’ the screen. 
This happens so fast, however, that you can’t really see what is happening! 

Now, how do we stop the computer? Find the BREAK key. Press it. Con- 
gratulations! You have stopped the computer. The bottom portion of the screen 
looks something like this: 


sce: You stopped the TRS-80 


KARL while it was doing line 20. 
BREAK IN LINE 28 

READY 

ee 





How do we stop a ‘‘runaway’’ TRS-80? 


— (a) We turn the computer off by pressing the ON-OFF power 
switch. 
—_._—s-— (b) We pull the power cord that connects the power supply to the 
110-volt outlet. 
__._—-— (c) We yell ‘‘SSTOP”’ in a loud voice several times. 
(d) We press the BREAK key on the keyboard. 
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(a), (b), and (d) will work. However, (a) and (b) cause the TRS-80 to erase its 
memory. So the program would be erased. The best choice is (d)—that is, to stop 
the computer, press the BREAK key. 


9. Well, maybe the program wasn’t stored correctly in the TRS-80’s memory. 
Suppose that we had made a typing mistake and the program was stored incor- 
rectly, as follows: 





19 CLS 
28 PTINT "KARL" 
32 GOTO 2g 





We misspelled PRINT 





But, alas, we did not notice the error. We typed RUN and pressed the ENTER 
key. Here is what happened. 









The TRS-80 ?SN ERROR IN 20 
printed all READY 
of this. — 

“~The cursor! 


Now, press the ENTER key. The TRS-80 will print the rest of line 20 so we can 
look for the error! 





?SN ERROR IN 26 
READY 

28 PTINT "KARL" 
> 


AHA! Here is the error. 


How can we correct the error? 


We retype and enter line 20 correctly. That is, we type 20 PRINT ‘‘KARL’’; and 
press the ENTER key. Then, we LIST the program to make sure the correct line 
20 is in memory. If so, then RUN the program. 


NOTE: When we enter a program, errors are not detected by the computer until 
we tell it to RUN the program. During a RUN, if the computer tries to execute a 
statement with an error (such as in line 20 above), it will then stop and print an 
error message. 
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10. Look at the error message in the preceding frame. 


?SN ERROR IN_26@ 


Line number where the error occurred. 


Suppose that the program has been stored incorrectly, as shown below. 


18 CL Oops! Should have been 10 CLS. 
28 PRINT "KARL" 
32 GOTO 29 


We type RUN and press ENTER. Show what the TRS-80 prints. 


We type: RUN 

It prints: 

?SN ERROR IN 12 (Syntax error in line 10) 

READY 

18_ If you now press ENTER, the TRS-80 will print the 


rest of line 10 so that you can find the error. 


Remember: To correct the error in line 10, simply retype line 10 . . . correctly, 
please! The new, all new, correct line 10 will replace the old, incorrect line 10 in 
the TRS-80’s memory. 


11. How does the program work? The statement: 
16 CLS 
tells the computer to clear the screen. The statement: 
2@ PRINT "KARL" 
tells the computer to print the word KARL on the screen. The statement: 


38 GOTO 28 





tells the computer to go to line 20 and continue. 

When we type RUN and press ENTER, the computer begins executing the 
program, beginning with the smallest line number. The computer executes line 
10, then line 20, then line 30, then line 20, then line 30, then line 20, then line 30, 
and so on—until you press the BREAK key, which stops the computer. 








Follow the arrows. 


RUN 
18 CLS 


28 PRINT "KARL" 


36 GOTa if 
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Around and around and around... 
until someone presses BREAK. 


Here is a slightly different program. Draw arrows to show the order in 


which things are done. 


RUN 
18 CLS 
26 PRINT "KARL" 


38 GOTO 19 






2@ PRINT "KARL"; 


38 GOTO 19 


This program causes Karl’s name to 
blink rapidly in the upper left corner of 
the TV screen. Why? Because CLS 
clears the screen and also moves the cur- 
sor to its ‘‘home’’ position in the upper 
left corner of the screen. Difficult to ex- 
plain, but easy to see when you RUN 
this program on your TRS-80! 


12. We assume that our program of the last few frames is still in memory. If 
not, please enter it into memory as shown in frame 6. Then, CLEAR the screen 


and LIST the program. 
You type: List 
It prints: 19 cLS 


2@ PRINT "KARL" 
38 GOTO 28 


Now, we want to change line 20, but only line 20. We do not (repeat, do not) 


type NEW. Instead, we do this. 
We type: 29 PRINT "KARL"; 
We type: LIST 

It prints: 19 cLs 


2@ PRINT "KARL"; 
32 GOTO 28 


(semicolon at the end) 


Old line 10 
New line 20 
Old line 30 
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Our new line 20, with a semicolon on the right end, replaces the old line 20 
which did not have a semicolon. What does the semicolon do? As usual with 
computers, the best way to find out is to experiment—try it and see what 
happens. 

So, type RUN and press the ENTER key. This is what you see: 








What does the semicolon on the right end of a PRINT statement do? (Go 
ahead, guess!) 


Causes the TRS-80 to print across the screen from left to right. When the TRS-80 
gets to the right end of the screen, it simply continues on the next line. Without 
the semicolon, the TRS-80 prints whatever is between quotation marks in the 
PRINT statement, then moves immediately to the left side of the next line. We 
will explain this in more detail later in the book. 


13. Try these variations for line 20. For each new line 20, RUN the program to 
see what happens, then press BREAK, entér the next line 20, RUN it, and so on. 


2@ PRINT "MARY "; Put one space after MARY. Watch 
MARY move to the right. 

2@ PRINT “JUDY "; Put three spaces after JUDY. Watch 
JUDY move to the left. 

29 PRINT "GANDALF "; Put one space after GANDALF. 


GANDALF moves neither left nor right. 


26 PRINT "A "; Put four spaces after A. Watch A move 
to the right. Also, watch the left edge of 
the screen or the right edge to see A do 
other interesting things! 











BASIC PROGRAMS 


Illusion: That’s what is happening. The TRS-80 is simply printing what is 
between quotation marks across the screen, beginning at top left. Look at the 
bottom line of the screen. When the screen fills, the TRS-80 keeps right on print- 
ing new lines across the bottom of the screen. Each new line pushes all the old 
lines up one place (computer people call it ‘‘scrolling’’). It happens so fast, 
though, that you see everything on the screen moving in some direction. 

So... play! Put anything you want in quotation marks in line 20. Try 
various numbers of spaces. Enjoy. 


14. Imagine that, inside the computer, there are a bunch of little boxes. Each 
box is a place in the computer’s memory in which we can store information. 


——e 


reer Boxes can be very short or quite long. 


CL ' 
seen cpecseniacaaa 


We can give a box a name consisting of a letter followed by a dollar sign 
($). For example, below are boxes called A$, B$, N$, X$, and Z$. 


jm Wess 

a 

vs FL 

any Sate ee eee 
Se Nes ee eee 
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Into any box, we can put a string. A string is simply any bunch of keyboard 
characters, typed one after the other. For example: 


A string can be a name: KARL 
A string can be a number: 123456789 
A string can be gibberish: AB#$%JFDZ?* 





Almost any keyboard character can be part of a string. One important exception 
is the double quotation mark (’’). It can’t be part of a string. Instead, quotation 
marks are sometimes used to enclose a string, as follows. 


"KARL" 
The string KARL is enclosed in quotation marks. 


Below are some boxes. We have already stored strings in some of these 
boxes. For example, KARL is in box A$ and 415 323 6117 is in box B$. 


Ds WADGETS: 23 Es FS 
7 


(a) What is in box C$? 
(b) What is in box D$? 
(c) Which box contains seven dollar signs? 
(d) What is in box H$? 


(e) Which box has an important message for people who love their mothers? 
(f) | Which box has a person’s name with last name first, followed by first 


name? 


(g) Which box has the name of the small city in which this book was written? 


(a) ABC 
(b) wADGETS: 23 
(c) Es 


(d) Nothing—this box is ‘‘empty.”’ 
(e) zs 
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(f) cs 
(g) Fs 


15. A box will be as short or as long as necessary to hold the string we want to 
put into it. Actually, there is a limit on string length. We will tell you about it 
soon. In the meantime, you may use strings with up to 50 characters. Here is 
how we stuff a string into a box, deep down inside the computer. To tell the 
computer to put KARL into box A$, we use a LET statement, without a line 
number, like this: 


We type: LeT as = "KARL" 


It prints: READY 
Pe 





The TRS-80 has put the string KARL into box A$. Note how we told the com- 
puter to do this. 


> LET A$ = ‘‘KARL’’ 


Let’s find out what is in box A$. To do this, we will tell the TRS-80 to print 
what is in A$. 
We type: PRINT as 
It prints: KARL 
READY 
pa 


To tell the computer to print-the string that is in A$, we type: 


> PRINT A$ 


Complete the following: 
We type: LET z$ = "MENLO PARK, CA 94925" 


It prints: 
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We type: PRINT zs 


It prints: 


MENLO PARK, CA 94925 
READY 
se 


16. The names A$, B$, C$, and so on, which identify boxes, are called 
variables. Since these boxes can hold strings, these variables are called string 
variables. 


A$ is a string variable, 

B$ is a string variable, 

C$ is a string variable, 
and so on. 


A string variable isa__.=————CSCSCSSCéfto eed by a 





. A string variable is the label, or name, of a box 


that can hold a 


letter; dollar sign ($); string 
Later, you will learn about numeric variables, which can store only numbers. We 
will use numeric variables when we want to do arithmetic with numbers. 


17. A$, B$, C$, ..., Z$ are string variables. The string in box A$ is called the 
value of A$; the string in box B$ is the value of B$; the string in box C$ is the 
value of C$; and so on. 

We use the LET statement to tell the computer to ‘‘put a string into a box’’ 
or, more technically, ‘‘assign a string to a string variable.”’ 


We type: Let ‘cs = "GREEN" ———___________ Put GREEN into box C$. 
We type: PRINT cs Print the contents of box C$. 
It prints: GREEN 

In the above, the variable is and the string 


value assigned to it is 
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cs = "GREEN" 


IMPORTANT NOTICE! The word LET is optional; it can be omitted. 


Instead of: LET C$ = "GREEN" Some people use LET 


Some people don’t 





We can type: cs = "GREEN" 


A box can hold one string at a time. When the computer puts a string in a box, 
it first erases the previous contents of the box. 
18. Complete the following: 
(a) Wetype: Let ms = "STAR WARS" 
We type: PRINT Ms 
It prints: 
(b) Wetype: ms = "STAR wars" 
We type: PRINT ms 
It prints: 


Remember, a variable can have only one value at a time. When we assign a value 
to a variable, the computer automatically erases any previous value of that 
variable. 


(c) Wetype: as = "pac" 
We type: as = "cat" 
We type: PRINT As 
It prints: 
(d) Wetype: Fs = "Rose" 
We type: Fs = "DAFFODIL" 
We type: PRINT FS 
It prints: 
Here is a tricky one. Can you figure it out without peeking at the answer? 
(ec) Wetype: ps = “yupITteR" 


P$ 


We type: as 
We type: PRINT as 


It prints 
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(a) It prints: sTaR wars 


(b) It prints: star wars 


(c) It prints: cat The statement A$ = ‘‘CAT”’ replaced 
the value previously assigned by A$ = 
“DOG’’. 


(d) It prints: DAFFODIL 


(e)  suPITER The statement Q$ = P$ copied the 
value of P$ into box Q$. The string 
JUPITER is still in P$ also. 


19. Now try this program. First, type NEW to erase any old program in the 
TRS-80’s memory. Then, enter the following program. 


29 AS = “KARL” 
38 PRINT AS;— =m mw mw eo eo Lk 
4@ GOTO 32 5 ‘p 


RUN the program. The screen should fill with Karl’s name exactly as it did with 
the program of frames 1 and 3. Let’s compare the two programs. 


Old Program New Program 


12 CLS 12 CLS 
2@ PRINT "KARL"; 28 AS = "KARL" 
38 GOTO 298 38 PRINT A$; 


4% GOTO 38 











semicolon 
here! 


In the old program, we include Karl’s name as a string in the PRINT statement. 
In the new program, we put the string in the box A$, then tell the TRS-80 to 
print what is in A$. 

Draw arrows to show the order in which the computer does the statements 
in the new program. 
RUN 
19 CLS 
28 AS = "KARL" 


38 PRINT A$; 


42 GOTO 38 
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: ig 
ig CLS This is done once. 
| 20 AS = "KARL" This is done once. 


38 PRINT AS; Around and around and around... 
until someone presses BREAK. 
48 GOTO 39 


20. Try changing line 20. Since line 30 prints what you put in line 20, each new 
line 20 will produce a new and different screenful of stuff when you RUN the 


program. 

29 AS = "KARL" One space after KARL. 

28 AS = "LIZZIE " Three spaces after LIZZIE. 

28 AS = "TAKE A DRAGON TO LUNCH " Four spaces. Try to read this one! 


Later, we will show you how to 
slow down the action on the 
screen. 


Try some of your own. You may use strings with up to 50 characters, in- 
cluding spaces, between quotation marks. 


20 A$ — 66 up to 50 characters here 99 


If we want to use more than 50 characters, we use a CLEAR statement to tell the 
TRS-80 to reserve space for more characters. 





We type: cLEAR 199 


It prints: READY 





We can now use up to 100 characters in our string, A$. The absolute maximum 
string size allowed for any one string is 255 characters. Later, we will be using 
more than one string variable in a program. The CLEAR statement tells the 
TRS-80 to reserve space shared by ail string variables. 

We can also include a CLEAR statement as part of the stored program, as 
shown below. 


5 CLEAR 189<————— Reserve space for up to 100 string 


oe ee characters. 
28 AS = "KARL" <—————___— Here we use only 4 of the 100 characters 
ao PRINT AS reserved in line 5. But you might know 


49 GOTO 38 


someone with a much longer name (a 
dragon?). 
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21. Now we will tell you how to put strings in boxes—the easy way—by using a 
new statement called the INPUT statement. 


12 CLS 

28 INPUT AS <—————_————— This is an INPUT statement. 
32 PRINT AS; 

4@ GOTO 38 


We stored the above program in the TRS-80, then typed RUN. Here is what 
happened. 


The computer printed a ? 
question mark and the 
cursor. 





The TRS-80 is doing the INPUT statement. The statement: 
28 INPUT A$ 
tells the TRS-80 to: 


(a) type a question mark; 

(b) turn on the cursor; 

(c) wait for someone to type a string. When you type a string and 
press the ENTER key, the TRS-80 puts the string into box A$ and 
goes on to the next statement in line number sequence. 





Let’s cooperate with our ever-patient computer and type in a string. To keep 
things familiar, we will type Karl’s name and then press the ENTER key. 


We type: "KARL" (and press ENTER) 


It prints: 
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Well, that looks familiar! (If not, see frame 12.) How do we stop the com- 


puter? 


We press the BREAK key. Yes, occasionally we remind you that you can stop, 
interrupt, or ‘‘break into’’ what the computer is doing by pressing the BREAK 
key. 


22. How does the program work? As usual, follow the arrows. 


RUN 

18 CLS 

28 INPUT AS At this point, we must type a string and press 
ENTER. The TRS-80 puts our string in A$, then 

3@ PRINT A$; moves on to line 30. 

\ Around and around and around .. . until someone 
presses BREAK. 


We now have three ways (programs) to fill the screen with multiple copies 
of a string. 


Program 1. Program 2 Program 3 

19 CLS 1@ CLS 1@ CLS 

2@ PRINT "KARL"; 2@ LET AS = "KARL" 28 INPUT A$ 

38 GOTO 22 39 PRINT A$; 39 PRINT A$; 
4@ GOTO 38 49 GOTO 32 


In the above three programs, we see examples of five types of statements. 
What are the five types of statements? We have named one type to help you get 
Started. 


(a) cLs 
(b) 
(c) 
(d) 
(¢) 
(a) cis 
(b) PRINT 
(c) GoTo 


(d) vet Remember, the word LET may be omitted. 
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In the rest of this book, you will learn perhaps another fifteen statement types. 
So you are well on your way. In the rest of this chapter, you will learn more 
about how to use the INPUT statement. 


23. The following program will help you learn more about the INPUT state- 
ment. You can use it to experiment! 


NEW This program simply prints out (once) 
sie Lins whatever you type in for the value of 
2@ INPUT NS N$. 


38 PRINT NS 
42 GOTO 28 


Draw arrows to show the order in which statements are done by the com- 
puter. 


RUN 
1@ CLS 
22 INPUT NS 


38 PRINT NS 


4@ GOTO 20 
ig CLs 

28 INPUT N$ In following this program, the TRS-80 
{)} will always return to the INPUT state- 
32 PRINT N$ ment, print a question mark, turn on the 
Ui} cursor, and wait for the next value of 

48 GOTO 32 NS. 


24. We stored the program (frame 23) in the TRS-80, then typed RUN and 
pressed the ENTER key. Here is what happened. 


The computer printed 2 
a question mark and 
the cursor 
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We then typed the string ‘‘FIREDRAKE”’ (including the quotation marks). 





?"FIREDRAKE"_ 


or 


Then we pressed the ENTER key. 










?"FIREDRAKE" 
FIREDRAKE 
? 


It printed this 
and this 


The computer printed the string that we typed, enclosed in quotation marks, 
following the question mark. 


(a) Why did the computer print the question mark? 





(b) After printing FIREDRAKE, why did the computer print another question 


mark? 








(a) It was executing the INPUT N$ statement in line 20. When we typed 
“FIREDRAKE”’ and pressed the ENTER key, the computer put 
FIREDRAKE into box N$ or, more technically, assigned FIREDRAKE as 
the value of N$. 

(b) After printing the value of N$ (line 30), the TRS-80 obeys the GOTO 20 
statement in line 40 and goes to line 20, which is the INPUT statement, and 
executes it. 
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25. We continued entering strings in response to question marks. Study these 
examples carefully. 





?"FIREDRAKE" 


FIREDRAKE 

What? No quotation marks? ?F IREDRAKE 

Hmmm .. . seems to be OK. FIREDRAKE 

Five spaces before FIREDRAKE. ? F IREDRAKE 
The computer ignored our spaces. FIREDRAKE 

Let’s try quotation marks. on FIREDRAKE" 
Aha! It printed the spaces. F IREDRAKE 
Home, sweet, home. ?COMPUTERTOWN, USA 
Huh? What happened? ?EXTRA IGNORED 
Well, we got part of it. COMPUTERTOWN 

Let’s try quotation marks. ?"COMPUTERTOWN,USA" 
OK! COMPUTERTOWN,USA 
And so on. The computer 2 


waits for the next string. 


Our motto is: 


If in doubt, use quotation marks when you enter a string as a value of a 
string variable. 


Without quotation marks, the computer will: 


—Ignore leading space, but accept trailing* spaces. We couldn’t show 
that because trailing spaces are invisible. 
—Do funny things if a string has a comma. 


Never mind. Plunge onward. Most, if not all, will be revealed. Or you can 
experiment and find out for yourself many of the answers to the question: 
What if? 

Oh yes, when you are finished experimenting, press BREAK to stop the 
computer. 


Siae 


*This string has trailing spaces: "FI REDRAKE . 
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pe ——————————— 


26. Look at the information printed on the screen in the example in the 
preceding frame. Crowded, isn’t it? Below is a slightly modified version of the 
program. 


12 CLS 
28 INPUT N$ 
38 PRINT N$ 
35 PRINT 
4@ GOTO 28 








This is an ‘empty’? PRINT statement. It prints 
_an empty line, thus giving us a vertical space, as 
you will see. / 






Using the above program, our examples of the preceding frame would look like 
this on the screen: 


?"FIREDRAKE" 
FIREDRAKE 

An empty line 
?F LREDRAKE 
FIREDRAKE 

—————— ———$_—_———_ An empty line 
? FIREDRAKE 
FIREDRAKE 

—_—— An empty line 
? andsoon... 


The empty lines, caused by line 35, make the stuff on the screen easier to read. 
Each example is separated from the one above or below it by a vertical line 
space. 


27. The INPUT statement, as we have known it, tells the computer to put a 
question mark on the screen, then wait for the user to answer. Wouldn’t it be 
nice if, instead of printing just a question mark, the computer would put some 
informative words on the screen, so that the user knows what the computer 
wants? The following program has an ‘‘enhanced’’ INPUT statement that is 
more informative. 


19 CLS 

28 INPUT "WHAT IS YOUR NAME"; NS 
38 PRINT N$; 

48 GOTO 39 


Let’s examine the ‘‘enhanced’’ INPUT statement. The statement: 


2@ INPUT "WHAT IS YOUR NAME"; NS 


tells the TRS-80 to: 


(a) print WHAT IS YOUR NAME on the screen; 

(b) print a question mark; 

(c) turn on the cursor; and 

(d) wait for someone to type in a string and press the ENTER key. 
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Look at the statement carefully. It consists of: 


(a) a line number, 
(b) the word INPUT, 
(c) quotation marks, 
(d) a String, 

(e) quotation marks, 
(f) a semicolon, 

(g) a string variable 


One more time: 


(a) (6) (©) (d) (e)(f)(g) 


tty 


28 chor “WHAT IS YOUR NAME" ; NS 


But where does the question mark come from? 


The question mark is always an automatic part of an INPUT statement. When 
an INPUT statement includes a string, the question mark is printed at the right 
end of the string. 


28. As usual, to find out what a program does, we type NEW, press ENTER, 

then carefully type the program into the TRS-80. Let’s assume that the program 
of the preceding frame is now in the memory of the TRS-80. So, we type RUN 

and press ENTER. 





The computer prints: WHAT IS YOUR NAME?_ 


coe 


If you type your name and press the ENTER key, the computer will print it 
‘‘everywhere’’ on the screen. If you wish to include spaces in front of your name, 
remember to use quotation marks. For example: 






Two spaces_before 
FIREDRAKE 


FIREDRAKE"_ 
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Now, when Firedrake presses ENTER, his name will appear everywhere on the 
screen, but always preceded by two spaces. It might look like this: 





29. You already know about string variables. In case you have forgotten, 
review frames 14 through 17. Now let’s talk about numeric variables. Numeric 
variables are names of boxes that can hold only numbers. Any letter of the 
alphabet can be a numeric variable. 


These are numeric variables: A, B,C,...,Z 
These are string variables: A$, B$, C$,..., ZS 


What is the difference between a numeric variable and a string variable? 


A string variable a/ways ends with a dollar sign ($). A numeric variable never 
ends with a dollar sign. String variables may have any string as a value. Numeric 
variables may have only numbers as values. And values of numeric variables 
must be typed without quotation marks, as you will see in the next few frames. 


30. We can use the LET statement to instruct the computer to ‘‘put a number 
in a box.’’ To say it more technically, we are assigning a numerical value to a 
variable. 


We type: LET A = 7 Put 7 into box A. 
We type: PRINT A Print the contents of box A. 
It prints: 7 


In this program the variable is A and the value assigned to it by the LET state- 
ment is 7. 
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Complete the following: 





(a) Wetype: Let x = 23 We type: 
It prints; It prints: 
We type: We type: 
It prints; It prints: 

(a) 23 

(b) -1 

(c) 2 


(d) 7 (7 is in both W and D) 


NOTE: The word LET is optional. Instead of LET X = 23, we can write 
X = 23. 


As you read through this book, you will see less and less of LET. If you read 
other books and magazines, however, you may occasionally encounter it. In your 
programs, we encourage you to not use LET. 


31. Write a LET statement to assign the value 3.14 to P and a PRINT state- 
ment to print the value of P. 
We type: 


We type: 
It prints: 3.14 


LET P = 3.14 Or P= 3.14 
PRINT P 


32. Once we have assigned a value to a variable, that variable can be used in 
mathematical expressions. 


We type: Let a 
LET B 


7 
Ss 


We now have 7 in box A and 5 in box B. 


B 


We type: PRINT A +B 


ald Since A=7 and B=5, A+B=7+5=12. 
It prints: 12 
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We type: PRINT A - B 

It prints: 2 Since A=7 and B=5, A-B=7-5=2. 
Your turn. Complete the following: 

We type: PRINT A*B 


It prints: 
We type: PRINT A/B 





It prints Se ets 


33. Wecan also use the INPUT statement to assign a value to a numeric 
variable. 


NEW 


1@ CLS 

28 INPUT A 
3@ PRINT A 
4@ PRINT 
5@ GOTO 28 


}+———a is a numeric variable. 


We entered the above program and ran it. Here is what happened on the screen. 


2258 <——————_———_ We typed 258 with no quotation marks. 


258 fk printed 258, the value of A. 

ee We typed -6 with no quotation marks. 

-6 It printed -6, the value of A. 

nee —_————_ we typed 12.95 with no quotation marks. 
12.95 It printed 12.95, the value of A. 


ee E typed 73 with quotation marks. 
? " 7 3 ” 


eHEDO It rejected our ‘‘73”’ 
2 and is waiting for our next try. 


When we enter a number that is to be stored as the value of a numeric 
variable, we (should/should not) ——————___________—_ enclose it in quota- 
tion marks. 


should not 


However, if we should enter a number as the value of’a string variable, it is OK 
to enclose it in quotation marks. Remember though, you can *t do arithmetic with 
strings. 
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34. Remember our bicycle program from Chapter 2? If not, review frame 18 in 
Chapter 2. 
Below is a program to compute the distance traveled in one turn of a wheel 


of diameter D. 
NEW 


18 CLS 

29 INPUT "WHEEL DIAMETER"; D 
38 PRINT 3.14*D 

48 PRINT 

58 GOTO 28 





eee DIAMETER? 28 We typed the wheel diameter. 
| It printed the distance traveled. 
WHEEL DIAMETER? 26 We typed the wheel diameter. 
GT. 6G It printed the distance traveled. 
WHEEL DIAMETER? 27 We typed the wheel diameter. 
84.76 It printed the distance traveled. 
WHEEL DIAMETER? It is waiting for more. 


What happens when the computer executes line 40 in the above program? ____ 


The computer prints an empty line on the screen. This separates each example 
from the previous example. See frame 26 for a discussion of empty PRINT 
statements. 





35. What the computer wants us to type is clearly identified by the string 
WHEEL DIAMETER in the INPUT statement. We can use the PRINT state- 
ment to identify the answer that the computer prints. Change line 30 to the 
following. 


32 PRINT "DISTANCE IN ONE TURN IS" 3.14*D 


Did you make the change? Now list the program. Ft 9 
LIST 


19 CLS sp len Sty 

2@ INPUT “WHEEL DIAMETER" 3; D geo (co) 
‘ 3@ PRINT “DISTANCE IN ONE TURN IS" 3.14*D €& 

4@ PRINT 

58 GOTO 26 
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Let’s RUN it. 


RUN 


WHEEL DIAMETER? 298 
DISTANCE IN ONE TURN IS 62.88 


WHEEL DIAMETER? 26 
DISTANCE IN ONE TURN IS 81.64 


WHEEL DIAMETER? 27 
DISTANCE IN ONE TURN IS 84.78 


WHEEL DIAMETER? 


Apparently, the statement 30 PRINT ‘“‘DISTANCE IN ONE TURN IS’’ 3.14*D 
tells the TRS-80 to: 


(a) SSS then 


(b) 


(a) print the string: DISTANCE IN ONE TURN IS 
(b) compute and print the value of 3.14*D 


NOTE: In some versions of BASIC, it is necessary to put a semicolon between 
the two things in the PRINT statement, as here: 


3@ PRINT "DISTANCE IN ONE TURN Is" ; 3.14*D 


The TRS-80 will accept either way of doing it. 


36. We will end this chapter with some teasers, promises of things to come. 
You now know how to enter a program. You can do this even if you don’t 
understand the program. So here are some programs that you don’t understand 
now, but soon will understand. Go ahead. Give them a try. Type in these pro- 
grams and RUN them. 





Program Chaos 
128 CLS 


: Or use your name. 
32 GOTO 28 \ 


20 PRINT @RND(1823), "KARL "3 


Spaces—use as many as you like. 
Look for this in Chapter 5. 
Program Firefly 
18 CLS 


22 PRINT @RND(1223), 
38 GOTO 18 


Look for this in Chapter 5. 


ux 
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Program Blink 


18 CLS 

22 PRINT 0473, "KARL" ; Or use your name. 
38 FOR Z = 1 TO 588 : NEXT Z 

4@ CLS 

5@ FOR Z = 1 TO 588 : NEXT Z 

62 GOTO 26 





Look for this in Chapter 4. 


Program Starfall 


12 CLS 
2@ OVER = RND(127) 
32 DOWN = RND(47) 


48 SET (OVER, DOWN) 
5@ GOTO 26 


Look for this in Chapter 5. 


Program ESP 


198 CLS 

118 PRINT "DO YOU HAVE ESP? LET'S FIND OUT." 

128 PRINT "GUESS MY NUMBER, IF YOU CAN!" 

138 PRINT 

| 14@ PRINT "I'M THINKING OF A NUMBER, 1 OR 2." 

| 159 SECRET = RND(2) 

168 PRINT 

178 INPUT "YOUR GUESS" ; GUESS 

188 IF GUESS <> SECRET THEN PRINT "SORRY, THAT'S NOT IT." 
198 IF GUESS = SECRET THEN PRINT "YES! you GOT IT!" 
288 PRINT "OK, LET'S DO IT AGAIN.” 

218 GOTO 138 





This is a very simple game. Again, we caution you, do not put quotation marks 
around your numbers if you play this game. In the above program, we use two 
numeric variables called SECRET and GUESS. Yes, a numeric variable can be 

longer than a single letter. 


SECRET is a numeric variable, the name of the box that 
holds the computer’s secret number (1 or 2). 

GUESS _ is a numeric variable, the name of the box that 
holds your guess. 


You have now encountered the mysterious RND several times in the last 
few programs. You might want to speculate about what this unpredictable 
creature does. RND will appear in all its glory (and be explained) in Chapter 5. 
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SELF-TEST 


Congratulations! You have completed another chapter. Now try this Self-Test. 


1. Before entering a program, we usually type NEW and press ENTER. Why? 


a 


a TLE Ens S EEE 


2. How do we enter a program in the computer’s memory? 





3. How do we tell the computer to type a complete listing of a program stored 


in its memory? 2 ee 





4. How do we tell the computer to execute a program stored in its memory? 





5. Inastored program, each line begins with a 








6. We store the following program in memory and RUN it. 


192 PRINT "I WILL NOT CHEW BUBBLE GUM IN CLASS.” 
118 GOTO 198 


How do we stop the computer? 





To 


7. Which program would produce the RUN shown below? 





Program A Program B 

18 CLS 19 CLS 

28 PRINT "HA HA "; 22 PRINT "HA HA " 
38 GOTO 2a 38 GOTO 28 





HA HA HA HA HA HA HA HA HA HA HA 
A HA HA HA HA HA HA HA HA HA HA H 
HA HA HA HA HA HA HA HA HA HA HA 
HA HA HA HA HA HA HA HA HA HA HA 
A HA HA HA HA HA HA HA HA HA HA 
HA HA HA HA HA HA HA HA HA 


andsoon... 


8. Write a program to ‘‘teach the computer to cry.’’ Your program, when 
RUN, should cause the screen to fill up with BOO HOO. 


ee Ee 











70 TRS-80 BASIC 





9. 


10. 


11. 


12. 


The following program has already been stored. There is an error in line 20. 
How can we correct the error? Remember, the program is already stored. 














We forgot quotation marks. 
They go just before the R2D2. 


R2D2 Lives! " ; 
38 GOTO 29 


Show the RUN for the following program. 
16 CLS RUN 


28 PRINT XXXXx" 


38 PRINT x x 
4@ PRINT "(X @a@ Xx)" 
5@ PRINT " xX vVv- x" 
66 PRINT " X < > x" 
78 PRINT " xX x" 
82 PRINT " xxx" 


Show the RUN for the following program. 


18 CLS RUN 
20 AS = "— XXXXxX" 

39 BS = " x x" 

48 cS = "(X @ a x)" 

5@ DS = " xX Vv x" 

682 ES = " X en 

70 FS =" X x" 

82 Gs = " Xxx" 


98 PRINT A$ 
18@ PRINT B$ 
11@ PRINT C$ 
128 PRINT D$ 
138 PRINT ES 
148 PRINT FS 
152 PRINT G$ 


Complete the RUN of the following program. 


1@ CLS 

2@ INPUT J$ 

3@ PRINT J$ 

4@ PRINT J$ 

5@ PRINT J$ 

RUN 

?"WHAT I TELL YOU THREE TIMES IS TRUE." 
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Complete the RUN on the line provided. 


18 CLS 
28 INPUT "A "; 
38 INPUT "B 
4@ PRINT "A 


+ iu 
ie¥] 


tut) 
vou 
yw 

an 


Write a program to help us compute our utilities bill. Use .23 as the price 
per THERM (T) of gas and .04 as the price per KWH (K) of electricity. 
The amount (A) that we owe is computed by the following formula. 


A = .,23*T + .84*K 
A RUN for such a program might look something like this: 


RUN 
THERMS?7116 
KWH?297 

YOU OWE 38.56 


The U.S. is going metric, so here is a metric problem. Write a program to 
convert feet and inches to centimeters, as indicated by the following RUN. 


RUN 
FEET = 7 5 We enter, as requested, the number of 
INCHES = ? 11 feet, and the number of inches. The 
CENTIMETERS = 188.34 . 

computer computes and prints the 
FEET = 7? 3 number of centimeters. 


INCHES = ? @ 
CENTIMETERS = 91.44 


FEET = ? And so on. 
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16. Write a program to convert temperatures, given in degrees Celsius, to 
degrees Fahrenheit, using the following formula. 


EAP, 
F= sC+32 


A RUN of your program should look like this. 
RUN 

YOU ENTER DEGREES CELSIUS. 

I WILL PRINT DEGREES FAHRENHEIT. 


DEGREES CELSIUS? @ 
DEGREES FAHRENHEIT = 32 


DEGREES CELSIUS? 198 
DEGREES FAHRENHEIT = 212 


DEGREES CELSIUS? 37 
DEGREES FAHRENHEIT = 98.6 


DEGREES CELSIUS? 





And so on. 


17. Congratulations! You are the big winner on a TV show. Your prize is 
selected as follows. A number from 1 to 1,000 is chosen at random. Call it 
N. You then select one, and only one, of the following prizes. You have 60 
seconds to make your selection. 


PRIZE NO. 1: You receive N dollars 
PRIZE NO. 2: You receive D dollars, where D= 1.01% 


Perhaps you recognize the formula for D. It is the amount you would 
receive if you invested $1 at 1% interest per day, compounded daily for N 
days. The question, of course, is: For a given value of N, which prize do 
you take, PRIZE NO. 1 or PRIZE NO. 2? Write a program to help you 
decide. A RUN might look like this. 





RUN 

N = ? 198 

PRIZE NO. 1 = 188 Take PRIZE NO. 1 
PRIZE NO. 2 = 2.78478 

N = ? 588 

PRIZE NO. 1 = 522 Take PRIZE NO. 1 
PRIZE NO. 2 = 144.764 

N = ? 1998 

PRIZE NO. 1 = 12888 Take PRIZE NO. 2 
PRIZE NO. 2 = 29956.7 


N=? And so on. 


Ae, 





BASIC PROGRAMS 73 





Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where the topic is 
discussed. You may wish to refer to these for quick review. 


1. 


IA wR 


10. 


11. 


12. 


heed 


This is to erase, or remove, any old program that might be in the com- 
puter’s memory. If we don’t do this, statements of an old program might 
be intermingled with statements of the new program, thus causing 
mysterious and unpredictable behavior when we try to RUN the new pro- 
gram. (frame 4) 


We type each line of the program on the keyboard. After each line, we 
press the ENTER key. (frames 5, 6) 


Type LIST and press the ENTER key. (frame 7) 
Type RUN and press the ENTER key. (frame 8) 
line number (frame 2) 

Press the BREAK key. (frame 8) 


Program A will produce the RUN as shown. Program B will cause HA HA 
to print down the left side of the screen, but not all over the screen. 
(frame 12) 


1@ CLS 
2@ PRINT "BOO HOO "; (frame 12) 
38 GOTO 28 


Retype line 20 as follows. 
20 PRINT “R2D2 LIves! " 


The new, correct line 20 will replace the old, incorrect line 20 in the 
memory. (frames 6, 9) 


XXXXXK 
x x 
(X @ @ X) 
xX V xX 
Xx < > X 
xX x 


XXX (frames 17-20) 


Same as the result from question 10. The ‘‘face’’ is defined in lines 20 
through 80, then printed by lines 90 through 150. (frames 17-20) 


RUN 
2"WHAT I TELL YOU THREE TIMES IS TRUE." <—__—__—__——. We typed. 
WHAT I TELL YOU THREE TIMES IS TRUE. 
WHAT I TELL YOU THREE TIMES IS TRUE. ~<———————— It printed. 
WHAT I TELL YOU THREE TIMES IS TRUE. 

(frames 21, 23) 
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13. 
14. 


15. 


16. 


17. 


B= 12 (frame 35) 
cLS 
INPUT "THERMS" ; T 
INPUT "KWH" 3; K (frames 27, 28, 34, 35) 
A = .23*T + .84*K 
PRINT "YOU OWE" A 
cLS 
INPUT "FEET = " 3 F 
INPUT "INCHES = " 3; I 
C = (F*12 + 1)*2.54 (frames 27, 28, 34, 35) 
PRINT "CENTIMETERS = " 3 C 
PRINT 
GOTO 20 
CLS 


PRINT "YOU ENTER DEGREES CELSIUS." 
PRINT "I WILL PRINT DEGREES FAHRENHEIT.” 
PRINT 


INPUT "DEGREES CELSIUS" C (frames 27, 28, 34, 35) 
F = (9/5)*C + 32 

PRINT "DEGREES FAHRENHEIT = " F 

GOTO 48 

cLS 

INPUT "N=" 3.N 

PRINT "PRIZE NO. 1 = "N 

PRINT “PRIZE NO. 2 = " 1.814N (frames 27, 28, 34, 35) 
PRINT 

GOTO 28 








CHAPTER FOUR 


FOR-NEXT Loops 








In this chapter, you will explore the wonderful ways of the FOR-NEXT loop. 
The FOR-NEXT loop takes over with automatic counting for all your repeatable 
tasks. You decide where to start and where to stop—it does the rest. You will 
learn the FOR-NEXT loop from the inside out and top to bottom. 

After completing this chapter, you will be able to: 


use the FOR-NEXT loop as a time delay; 

use the time delay as a subroutine; 

use the GOSUB statement to use, or call, a subroutine; 

use the RETURN statement to return from a subroutine; 

use multiple statements per line; 

position information on the screen with the PRINT @ statement; 

use the FOR-NEXT loop for repeatable parts of a program (other than 
time delays); 

¢ perform mathematical feats with the FOR-NEXT loop. 


1. The following program will cause Karl’s name to blink on, off, on, 


off, on . . . and so on, until someone presses the BREAK key. Try it. 
The Program Comments about the Program 

198 CLS Clear the screen. 

118 PRINT "KARL" Print the word KARL. 

128 FOR Z = 1 TO 588 ] Something new! Go ahead and use it. 

139 NEXT Z We will explain later. 

148 CLS Clear the screen. 

15@ FOR Z = 1 TO 588 ] Here it is again. Plunge bravely 

16@ NEXT Z onward—all will be revealed. 


178 GOTO 186 


Type NEW, enter the above program, and RUN it. 


15 
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KARL KARL will blink 
Blink, blink, Pia on, off, on, off, 
blink, ... Pod on, off, on,... 


Put your name here. 


+? 





—Press BREAK to stop the computer. 
—Change line 110 to: 110 PRINT “SL. 
—RUN it again. Your name will blink on, off, on, off, on, off,.... 


Try other blinking messages, perhaps one of the following: 


118 PRINT “TOMORROW IS YOUR MOTHER'S BIRTHDAY" 
118 PRINT "MAN THE PUMPS-THE BOAT IS SINKING!" 
118 PRINT "MAY THE FORCE BE WITH YOU" 

118 PRINT "LIVE LONG AND PROSPER" 

118 PRINT "TAKE A DRAGON TO LUNCH" 


2. FOR??? NEXT??? What do they mean? OK, in response to popular de- 
mand, we will explain what is happening in lines 120 and 130, and again in lines 
150 and 160. 


128 FOR z = 1 TO 59a ee ane This is called a 
138 NEXT Z FOR-NEXT loop. 


The above FOR-NEXT loop simply tells the computer to count from 1 to 500. 
Start here stop here 


12@ FOR Z = 1 TO 58 
138 NEXT Z 


As the computer counts from 1 to 500, each counting number is put, momen- 
tarily, into box Z. 


—First the computer puts 1 into box Z. 

—Then the computer erases 1 and puts 2 into box Z. 
—Then the computer erases 2 and puts 3 into box Z. 
—Then the computer erases 3 and puts 4 into box Z. 
—Then the computer erases 4 and puts 5 into box Z. 


—And so on. Eventually, the computer puts 500 into box Z. (Of course, 
it first erased 499.) 


This all happens very quickly, in /ess than one second! 


——_-_—_—_———— 
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Lines 150 and 160 do the same thing. Both FOR-NEXT loops are simply 
time delays. The computer is counting silently to itself while we see KARL on the 
screen or we see a completely blank screen. We see KARL for a little while, then 
we see a blank screen for a little while, then we see KARL for a little while, then 
we see a blank screen for a little while, then . . . and so it goes. 


(a) How can we change lines 120 and 150 so that Karl’s name blinks more 


rapidly? 
(b) How can we change lines 120 and 150 so that Karl’s name blinks less 


rapidly? 


(a) Use a number less than 500. For example, change line 120 to 120 FOR Z = 
1 TO 200 and line 150 to 150 FOR Z = 1 TO 200. Now the TRS-80 will 
count from 1 to 200, which takes Jess time than counting from 1 to 500. 

(b) Use a number larger than 500. For example, change line 120 to 120 FOR Z 
= 1 TO 1000 and line 150 to 150 FOR Z = 1 TO 1000. Now the TRS-80 
will count from 1 to 1,000, which takes more time than counting from 1 
to 500. 


3. Let’s make it easier to change the name. 





188 CLS 

119 INPUT "WHAT IS YOUR NAME" ; NS 

128 CLS Name is ON 

138 PRINT NS while TRS-80 

148 FOR Z = 1 TO 598 

15 NEXT z counts to 500. 

168 CLS Name is OFF (screen is clear) 
17@ FOR Z = 1 TO 588 while TRS-80 


188 NEXT Z 
counts to 500. 


198 GOTO 128 


(a) Suppose we change line 140 to: 140 FOR Z = 1 TO 1000. Will the name be 


ON for a shorter time or a longer time? __- SSC 
(b) Suppose we change line 170 to: 170 FOR Z = 1 TO 250. Will the name be 


OFF for a shorter time or a longer time? 


(a) Longer. It takes the computer about twice as long to count to 1,000 as it 
took to count to 500. 
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(b) Shorter. It takes the computer about half as long to count to 250 as it took 
to count to 500. 


That figures. 


o 
e 





> 


Follow the arrows to see how the program works. 


D 
(aq 
z 


ras) 


128 CLS 


a 


INPUT "WHAT IS YOUR NAME" 3; NS 


ra 
a 
Q 


a 


a 
LS) 
is] 


cLS 





a 






a 
Ww 
Q 


PRINT NS 
FOR and NEXT always 


work together. 





a 





14@ FOR Z = 1 TO 588 

158 NEXT Z oO , 
0 ° 

168 CLS 


178 FOR Z = 1 TO 58 
182 NEXT Z 





198 GOTO i128 


5. A FOR-NEXT loop begins with a FOR statement and ends with a NEXT 
statement. 
—A numeric variable must follow the word FOR: 


14@ FOR Z = 1 TO 58 


numeric variable 


—The same numeric variable follows the word NEXT: 





158 NEXT Z 


numeric variable 
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Here is another way to say it: 


148 FOR Z = 1 TO 586 | Same numeric variable 
152 NEXT Z 


Let’s not overwork the variable Z. Any numeric variable may be used. 


—These are OK FOR-NEXT loops: 


28 FOR K = 1 TO 3 73 FOR A = 1 TO 18 
3@ NEXT K 89 NEXT A 


—But these FCR-NEXT loops are not OK: 


(a) 59 FOR x = 1 TO 192 (b) 119 FoR zs = 1 TO 298 
6@ NEXT Y 12@ NEXT zs 


What is wrong with (a)? 
What is wrong with (b)? 


(a) The variable following NEXT is different from the variable following FOR. 
These must be the same variable. 

(b) Oops! Z$ is a string variable. We can use only numeric variables in FOR 
and NEXT statements. 


6. And now, a handy space-saving, time-saving gimmick! The following pro- 
gram features multiple statements per line. 






192 CLS 
118 PRINT "KURT" 

128 FOR Z = 1 TO 588 : NEXT Z 
13@ CLS 

14@ FOR Z = 1 TO S598 : NEXT Z 
15@ GOTO 118 


Two statements on this 
line! 








Two statements on 
this line. 






In the above program, line 120 contains two statements. Line 140 also contains 
two statements. In a line that contains two statements, what symbol, or 


character, is used between the statements? 


a colon (:) 


128 FOR Z = 1 TO 588 : NEXT Z 


statement statement 


C scion 
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We usually put a space on each side of the colon. However, this is not necessary. 
We could have typed line 120, as follows: 


128 FOR Z = 1 TO S@@:NEXT Z 

In fact, we can leave out ail spaces and do it like this: 
129FORZ=1TOSSS:NEXTZ 

The TRS-80 will understand perfectly well, but it is hard for people to read! So, 
use spaces to make programs easier for humans to read. 
7. Here is another example, using multiple statements per line. The following 
is a rewrite of the program in frame 3. 
198 CLS : INPUT "WHAT IS YOUR NAME" ; N$ 
118 CLS : PRINT N$ 
128 FOR Z = 1 TO S@8 : NEXT Z 
139 CLS : FOR Z = 1 TO S@8 : NEXT Z 


148 GOTO 1198 


Follow the arrows. 


182 CLS +: INPUT "WHAT IS YOUR NAME" ; N$ 
118 CLS : PRINT NS 

128 FOR X = 1 TO 58 : NEXT Z 

138 CLS : FOR Z = 1 TO 588 : NEXT Z 


149 GOTO 118 


The arrow from line 140 to line 110 shows you that multiple statements in a 
line are done from /eft to right. In line 110, the CLS statement is done first, then 
the PRINT statement. In line 130, the CLS statement is done first, then the 
FOR-NEXT loop. For the above program, complete the following: 


Line Number Number of Statements 
100 2 
110 2 
120 — 
130 — 
140 — 


120 2 (FOR and NEXT) 
130 3 (CLS, FOR, and NEXT) 
140 1 (GOTO) 
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8. Your turn. Rewrite the following program, using multiple statements per 


Ours Yours 
198 CLS 
118 PRINT "DARTH VADER" 
128 FOR Z = 1 TO 588 
138 NEXT Z 
148 CLS 
158 PRINT "LIVES!" 
168 FOR Z = 1 TO 588 
178 NEXT Z 
188 GOTO 198 


Here is one way to do it. Yours may be yet another way! 


198 CLS : PRINT "DARTH VADER" 
118 FOR Z = 1 TO 5@@ : NEXT Z 
128 CLS : PRINT “LIves!" 
138 FOR Z = 1 TO S88 : NEXT Z 
148 GOTO 188 
When we use multiple statements per line, we try to put ‘‘related’’ statements on 
the same line. For example, line 100 tells the computer to clear the screen, then 
print DARTH VADER on the screen. Line 110 is a time delay, all on one line. 
Then, line 120 clears the screen and prints LIVES! Line 130 is another time 
delay, and line 140 causes the whole thing to repeat from the top. 

We could have put the entire program on three lines, as follows: 


192 CLS : PRINT "DARTH VADER" : FOR Z = 1 TO 508 : NEXT Z 
11@ CLS +: PRINT "LIVES!" : FOR Z = 1 TO 5@@ : NEXT Z 
128 GOTO 198 


And, of course, there are many other ways. When you use multiple statements 
per line, try to make your program easy for people to understand! 


9. Imagine a TRS-80 with a giant screen. It’s the big game of the season and 
the TRS-80 is firing up the Rooter Club—building energy to help win the game. 
The program might look like this: 


180 CLS : PRINT "Go" Time delay 
118 FOR Z = 1 TO 588 : NEXT Z 

128 CLS Time delay 
138 FOR Z = 1 TO 588 : NEXT Z 

149 PRINT "TEAM" Time delay 
159 FOR Z = 1 TO 5@@ : NEXT Z 

169 CLS Time delay 
178 FOR Z = 1 TO 58H 1: NEXT Z 

188 PRINT "Go!" Time delay 
198 FOR Z = 1 TO 588 : NEXT Z 

298 CLS . 

219 FOR Z = 1 TO 1889 : NEXT Z Time delay (longer than others) 


228 GOTO 188 
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The time delay in line 210 is longer than the others in order to separate (in time) 
each GO TEAM GO! from the next GO TEAM GO! Feel free to change these 
time delays to suit your sense of rhythm. 





10. Six time delays in that last program. Lines 110, 130, 150, 170, and 190 are 
exactly the same and line 210 differs only slightly. Aha! A splendid opportunity 
for your cunning (but compassionate) authors to introduce... (fanfare!) ... 
subroutines. We will write the time delay once as a subroutine, then use it as 


often as we 


need it. 


In the following program, we have a time delay subroutine in lines 900 and 
910. This subroutine is used in lines 110, 120, 140, 150, 170, and 180. 


The Program 
1@@ CLS : PRINT "GO" 
118 GOSUB 999 
128 CLS : GOSUB 998 
132 PRINT "TEAM" 
148 GOSUB 982 
158 CLS +: GOSUB 98 
168 PRINT "Go!" 
178 GOSUB 989 
188 CLS : GOSUB 988 : GOSUB 988 


198 GOTO 1 


988 FOR Z 
912 RETURN 


BB 


= 1 TO S#B : NEXT Z 


Comments about the Program 


Look for line 900. It is our time delay 
subroutine (whatever that is!). 


Aha! We use the time delay subroutine 
again. 


And yet again. 


Ho hum—once more. 
What? Again? 


Use it twice to get a longer delay. 
Go around again for another cheer. 


Here it is! The long-awaited time delay 
subroutine. The RETURN statement 
tells the TRS-80 to return to the line 
following the GOSUB 900 that called 
the subroutine. 
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The time delay subroutine is called (used) by the GOSUB 900 statement in 
lines 110, 120, 140, 150, 170, and twice in line 180. Obedient as ever, the TRS-80 
goes to line 900, does it, then moves on to line 910. Aha! Line 910 says 
RETURN. So, the TRS-80 RETURNS to the statement following the GOSUB 
900, and continues from there. Clever! 

Subroutines are helpers. You call them when you need them. They do what 
they are designed to do, then return to where you called them. 


11. Your turn. Complete the following program to blink Jjago’s name on, off, 
on, off, on... and so on. 


182 CLS : PRINT "JJAGO" (Pronounced Yah-go) 
118 Use the time delay subroutine! 
i2@ CLS + J Use it again. 


138 GOTO 186 


290 FOR Z = 1 TO 50@ : NEXT Z Time delay subroutine 
218 RETURN 


118 GOSUB 2892 
128 CLS : GOSUB 289 


12. How about a variable time delay! Try it with Fonte’s name (pronounced 
**Fon-tay’’). 
188 CLS : PRINT "FONTE" : GOSUB 289 


118 CLS : GOSUB 2988 Hmmm .. . these programs 


keep getting shorter. 


128 GOTO 188 


208 T = 589 A variable Fe) 
218 FOR Z = 1 70 T : NEXT Z : Poly 
228 RETURN time delay 


subroutine 





The amount of delay (how far the computer counts) is controlled by the value of 
T in line 200. 
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Z goes from | to T 


209 T = 582 

21@ FOR Z = 1 TO T : NEXT Z 

226 RETURN 

To speed up or slow down the blinking, change the value of T in line 200. 


Faster: 2099 T = 258 (Z will count from 1 to 250) 
Slower: 299 T = 1992 (Z will count from 1 to 1,000) 


The time delay subroutine is called twice, once in line 


and once in line 


13. In the program of the previous frame, the delay for FONTE on is the same 
as the delay for FONTE off. Here is a different way to do it, in which we set the 
value of T, then call the subroutine—which uses the value of T. The subroutine 
itself is different. 


120 CLS +: PRINT "FONTE" FONTE on. 

dD Y, Se ae ot GUSUB, 208 Set delay (T) and use subroutine. 
129 CLS FONTE off (screen is clear). 
1387. = S82 §GOSUB 288 Set delay (T) and use subroutine. 
149 GOTO 198 Go around again. 

268 FOR Z = 1 TO T : NEXT Z Time delay subroutine. _ 


218 RETURN 


In the above program, FONTE will be on while the TRS-80 counts to 1,000 (T = 
1000 in line 110), then the screen will be blank (clear) while the TRS-80 counts to 
500 (T = 500 in line 130). So, FONTE will be on for about twice as long as off. 
Change the program so that things happen much more rapidly. Make the blink- 
ing much faster, with FONTE on about three times as long as FONTE off. 
Which two lines will you change? 


(a) Lines__...———soaarnd 

How might you change them? 
(b) Change line__————sétto 
(c) Changeline_——Cédt? 
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(a) 119; 139 
(b) 119; 119 T = 398 : GOSUB 290 
(c) 130; 138 T = 18% : GOSUB 298 


You may have used different values for T in lines 110 and 130. That’s OK, as 
long as the value of T in line 110 is about three times as big as the value of T in 
line 130. 


14. We seem to be doing everything in the upper left corner of the screen. Well, 
let’s not wear out that corner! Instead, we will now make things happen 
elsewhere on the screen. 

The TRS-80 can print in any one of 1024 print positions on the screen, 
from print position zero (0) in the upper left corner to print position 1023 in the 
bottom right corner. Each print position can hold one character of information. 


Position 0 Position 63 

Position 64 Position 127 
Position 448 Position 472 
Position 960 Position 1023 


Print positions are numbered from 0 (top left) to 1023 (bottom right). The screen 
is 64 characters wide and 16 lines from top to bottom. 





64 characters ——————+ 


16 lines 


16x64 = 1024 print positions 


The print positions are numbered from __.SSCSCSCSto 


0; 1023 


See Appendix E for a map of the screen, showing all positions. 
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15. One of the nicest things about TRS-80 BASIC is how easy it is to tell the 
computer to print something anywhere on the screen.* Easy! Just use the PRINT 
@ statement. 


> PRINT @ — 





Here are some examples. 
The. statement: PRINT a63, "*" 

tells the TRS-80 to print a star (*) at print position 63. 
The statement: PRINT 2472, "KARL" 


tells the TRS-80 to print the word KARL at print position 472. 


Gate 


PRINT 10472), "KARL" 


Print at this 
print position. 


The statement: PRINT 128, "Lucy" 


tells the TRS-80 to print the word____——CCSCSCSSCéaat print position 


LUCY; 128 


16. Experiment! Here is a program to help you print whatever you want, 
wherever you want it. 


128 CLS 

118 INPUT “WHAT SHALL I PRINT" 3; WS 
12@ INPUT "WHERE SHALL I PRINT IT" ; W 
138 CLS 


142 PRINT @w, WS 


158 T = 2888 
168 FOR Z = 1 TO T : NEXT Z 


178 GOTO 198 


*You will really appreciate this when you use a different computer that doesn’t have this feature! 
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In this program, W$ isa____—————SS—Sariale rnd W is 2 


variable. 


string; numeric 


17. Enter the program from the previous frame and RUN it. Here are some 
possible RUNs. 


Before pressing ENTER After pressing ENTER 








WHAT SHALL I PRINT? KELLY 
WHERE SHALL I PRINT IT? 472_ 





This stayed on for about 5 seconds 





WHAT SHALL I PRINT? KERRY 
WHERE SHALL I PRINT IT? 1822 


KE 
RRY 


Oops! When we tried to print KERRY in position 1022, only the first two letters 
would fit because print positions run from 0 to 1023 and each letter takes up one 
print position. After printing KE, the TRS-80 pushed everything on the screen up 
one line and printed the rest of KERRY on the bottom line, left side of the 
screen. (Sorry, Kerry.) 

Hmmm, what do you think will happen if we tell the computer to print 
DANNY at position 1024? Let’s try it. 





WHAT SHALL I PRINT? DANNY ?FC ERROR IN 148 
WHERE SHALL I PRINT IT? 16824 READY 
> 














i rr a aay 
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Well, there isn’t a print position 1024, so the computer printed an error message. 
FC means “‘illegal function call,’’ which doesn’t tell us much. In this case, the er- 
ror message means that we tried to print something at a nonexistent print 
position. 


Print positions are numbered from _________—ito 






0; 1023 


This is also illegal: print a-37, "A" 






A print position can’t be a 
negative number. 






But this is OK: PRINT 023.67, "A" 


In this case, the computer will ignore the part of the number to the right of the 
point and print the letter A at print position 23. 


18. Your turn. Write a program to: 





(a) clear the screen; 

(b) ask for a message (string); 

(c) ask for a place to blink it; 

(d) blink the message entered in (b) at the place entered in (c). 


n 


Write your program in the space below. 
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You may have used different variables. 


188 CLS 
118 INPUT "WHAT IS YOUR MESSAGE"; MS 
\12@ INPUT "WHERE SHALL I BLINK IT" 3 P 





138 CLS ays 6 

140 PRINT aP, M$ Message on at position P. 
158 GOSUB 289 Use time delay subroutine 
168 CLS Message off (everywhere). 
278 (GOSUE 288 Use time delay subroutine. 
188 GOTO 132 Go around again. 

208 T = 588 Time delay subroutine. 
218 FOR Z = 1 TO T : NEXT Z 

228 RETURN 


Here is another way, using more multiple statements per line. 


19@ CLS 
118 INPUT "WHAT IS YOUR MESSAGE" ; M$ 
128 INPUT "WHERE SHALL I BLINK IT" ; P 


1386 CLS : PRINT @P, M$ : GOSUB 288 
148 CLS +: GOSUB 288 
158 GOTO 138 


228 T = SBS 
218 FOR Z = 1 TO T : NEXT Z : RETURN 


See Appendix E for a map of the screen showing the print positions from 0 to 
1023. You may wish to experiment with your program relating actual positions 
on the screen of your TRS-80 with positions on the screen map in Appendix E. 


19. OK, we confess—there is much about FOR-NEXT loops that we haven’t 
told you. So, here we go! 

A FOR-NEXT loop begins with a FOR statement and ends with a NEXT 
statement. A FOR-NEXT loop may also have one or more statements between 
the FOR statement and the NEXT statement. 






128 CLS 

29 FOR Cc = 170 5 This FOR-NEXT loop has three statements. 
38 PRINT "C=" C 

48 NEXT ¢C 


(a) In the above FOR-NEXT loop, what statement is between the FOR state- 
ment and the NEXT statement? 
We could have written the above program like this: 


18 CLS 
2@ FOR C = 1 7T0 5 : PRINT "C = " C : NEXT C 














90 TRS-80 BASIC 





(b) In the above FOR-NEXT loop (line 20), what statement is between the FOR 
statement and the NEXT statement? 


(a) 3@ PRINT "C=" Cc 
(b) print "C= "Cc 





20. What do you think will happen if we enter the program of the preceding 
frame and then RUN it? Think about that for a moment. OK, we did it. Here is 
what happened after we typed RUN. 





Just what you might 
expect. The TRS-80 
counted to 5, using 
box C. It paused 
briefly to print each 
value of C so that we 
could C (oops, that 
should be ‘‘see’’) 
what is happening. 





rPnuhud 


vaannan 
m 


Now, you be the computer. Show what will appear on the screen if we enter 
and RUN the following program. 


The Program (ours) The Run (yours) 


19 CLS 

28 FOR N = 1 TO 3 
38 PRINT N 

4@ NEXT N 

5@ PRINT "GO!" 
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21. A FOR-NEXT loop can consist of three things. 


—A FOR statement 
—A NEXT statement 
—Statements between the FOR statement and the NEXT statement 


Of course, as you already know, the last item is optional. How does the FOR- 
NEXT loop work? Follow the arrows. 


20 FOR N = 1 TO 3 Aha! N starts at 1. 

30 PRINT nom Ce In line 40, N is increased by one, and 

ah Y. bg the computer compares the increased 
> 


value of N to the upper limit for N in- 
: dicated in the FOR statement. (N< =3 
58 PRINT "GO! means ‘‘N less than or equal to 3’’) 


Let’s look at the FOR statement. 


FOR N = 1.TO 3<«——__————— This is the last value N 
will have (the limit of N). 


This is the This is the first 
FOR-NEXT loop value N will have. 
control variable. 


When N goes past 3, the computer stops executing the loop and continues on 
with the rest of the program past the FOR-NEXT loop (if there is more to the 
program). We call this 3 the /imit of N, or the limit of the FOR variable. 


22. Each time the computer comes to a NEXT N statement, it increases the 
value of N by one, and checks the new value against the limit for N. In this case, 
the limit is 3, because the FOR statement reads: FOR N = 1 TO 3. When the 
value of N is greater than 3, the computer continues on to the statement follow- 
ing the NEXT statement, if there is one. If not, the computer has finished ex- 
ecuting the program and stops. Got that? Let’s see. 

Statement 20 means that for the first time through the loop, N = 1. The 
second time through, N = N + 1 = 1 + 1 = 2. The third time through, N = 











7 | 


92 TRS-80 BASIC 
N=N+1=2+1=3 


And now, a special treat for the older members of our audience. (Younger 
readers are encouraged to ask older readers about these programs.) 

18 CLS 

2@ FOR E = 1 TO 3 

32 PRINT E "O'CLOCK" 


4@ NEXT E 
5@ PRINT "ROCK!!!" 


Or, if your nostalgia is even more seasoned .. . 


19 CLS 
22 FOR W = 1 TO 4 
3@ PRINT "AH" w 
48 NEXT w 

| 


5@ PRINT "(NOW IMAGINE THE SCREEN FULL OF BUBBLES)" 
Later, we will show you how to fill the screen with ‘‘bubbles.”’ 


23. There is much more to learn about FOR-NEXT loops, and we will get to it 
eventually. But, for now, we will be using FOR-NEXT loops primarily to count 
from 1 to something. 

So, experiment! You, with the help of your ever-patient, always-willing 
TRS-80, can teach yourself far more than we can. Try these programs to aid and 
abet your self-teaching, self-learning. 


A variable FOR-NEXT loop: 


19 CLS 

2@ INPUT "HOW FAR SHALL I COUNT" 3; F™® = = = = 
3@ CLS a = = = 

49 FOR N= 170 Fe = 7 7 


5@ PRINT N (I bet you can’t make your eyes go in different 
68 NEXT N directions, as I can.) 


Want to try some variations? 
VARIATION: | 5@ PRINT N; 
VARIATION: 59 PRINT N, 





24. More experiments. Try the program. When the TRS-80 asks, respond. If 
something strange happens, ponder. And, remember our motto: 





We can’t give you all the answers. 
So... experiment! 
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Try this one. 
188 CLS 
118 PRINT “YOU CAN COUNT ON ME...OR, PERHAPS I SHOULD" 


128 PRINT "SAY, I CAN COUNT FOR YOU. WHEN I ASK, TELL" 
138 PRINT "ME WHERE TO START AND WHERE TO STOP COUNTING." 


148 PRINT 
15@ INPUT "WHERE SHALL I START" 3; A 
162 INPUT “WHERE SHALL I STOP" ; Z 
178 CLS 








18@ FOR K = A TO Z 
19@ PRINT K ; 
288 NEXT K 


e 
Please include the 9 


218 FOR T = 1 TO 190 Time delay! Remember? 
228 NEXT T 


232 GOTO 1228 


IMPORTANT NOTICE! Our programs are getting longer. Perhaps you have 
noticed that they take longer to type on the keyboard. 

Well, you can type them in once, then save them on a tape cassette. If you 
save a program on a tape cassette, you can reenter it by using the cassette 
recorder. You will really appreciate this later when programs get evenlonger! 

So, if you can possibly tear yourself away from the inspired prose of this 
chapter (you can always return—use a bookmark), we suggest that you now read 
Appendix B, ‘‘The Cassette Recorder.”’ 

If you would rather wait, OK. Just remember that there is an appendix that 
shows you how to save your program on tape cassettes so you can read them 
back into the computer without retyping them. 


25. Here is a mystery program for you to puzzle out. Before you enter and run 
this program, figure out what will happen on the screen. 


198 FOR X = B TO 1823 
118 CLS : PRINT ax, "- 


SM 3 
128 GOSUB 292 > 
138 NEXT xX Pi aw 
149 GOTO 190 with SHIFT key down 
202 T = 29 
218 FOR Z = 1 TO T : NEXT Z 
228 RETURN 
In the program above, a FOR-NEXT loop is in lines 110 through 130. 
(a) What is the variable in the FOR-NEXT loop? 


(b) What values will this variable have as the FOR-NEXT loop is executed? 





(c) Where is the variable used inside the loop? 
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(d) What will happen when we RUN the program? 


(a) X 

(b) 0, 1, 2, 3, and so on up to 1023 

(c) In the PRINT statement (line 110) to tell where to print the arrow (—>) on 
the screen. 

(d) Animation! The arrow (—>) will scamper across the screen from top left to 
bottom right. In its journey, it will pass through all 1024 (0 to 1023) print- 
ing positions. Eventually, it will complete its ‘‘grand tour’’ of the screen 
and... yup, start all over again. 


26. Note how we wrote the FOR-NEXT loop in the previous frame. 
189 FOR X = @ TO 1923 Top of the loop 


118 CLS : PRINT ax, "->"; Inside the loop 
129 GOSUB 292 


132 NEXT xX Bottom of the loop 


We indented the statements that are inside the loop two spaces. We did this sim- 
ply to make it easier for people to read the program. The TRS-80 ignores the ex- 
tra spaces, but most people find programs easier to read if we include the spaces. 
This will be even more important later on, as our programs get longer. We will 
begin using more devices to make programs more readable and understandable 
by humans. Some people call this ‘‘good programming style.”’ 

In line 120, the GOSUB 200 sends the computer to the time delay 
subroutine shown below. 
288 T = 28 


219 FOR Z = 1 TO T : NEXT Z 
228 RETURN 


The numeric variable T controls the amount of delay. 
(a) How can we make the arrow go faster? 


(b) How can we make the arrow go slower? 
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(a) Make T smaller; for example: 299 T = 12 
(b) Make T bigger; for example: 29a T = 100 


T = 100? Even I could 


duck that arrow. 





27. It’s math time. If you are absolutely convinced that math is dreadful, you 
can skip ahead to the Self-Test. However, you might find the next few frames in- 
teresting and maybe even fun! 

The FOR statement defines a sequence of values for its variable. Sequence? 
That’s just a fancy math word meaning that the values come one after the 
other—sort of like breakfast, lunch, and dinner, the sequence of meals you eat, 
or the sequence of months of the year: January, February, March, and so on. 

Here is a table showing a FOR statement, the variable it uses, and the se- 
quence of values which the variable assumes, one after the other. Read the se- 
quence of values from left to right. 





FOR Statement Variable Sequence of Values 
FOR N = 1 TO 3 N 1,2,3 

FOR K = 1 TO 3 K L, 23 

FOR A = ®@ TO 6 A ®,1,2,3,4,5,6 
FOR B = 3 TO 8 B 3,4,5,6,7,8 

FOR T = 1 TO 1 T 1 


Try some yourself. 


FOR Statement Variable Sequence of Values 
FOR Cc = 1 TO 3 
FOR D = 8 TO 2 
FOR R = 7 TO 8 
FOR X = -1 TO 1 
Cc L253 
D O,2,2 
R 7,8 
x =1% 
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28. Hang on. Here we go! The following program will compute the sum of the 
positive integers from 1 to N. In case you have forgotten, the positive integers 
are the numbers we count with: 1, 2, 3, 4, 5, and so on. Here is our program. 












18 CLS 

2@ PRINT : INPUT "N = " 3;.N The value of N must be a positive integer, 
or this program won’t work the way we 

a2 5 = oO meant it to work. 

4@ FOR TON 


K = 1 
5@S=S + kK 
6@ NEXT K ie 
78 PRINT “THE SUM IS" §S 
88 GOTO 28 
The variable S (for sum) is used in lines 30, 50, and 70. Line 30 occurs before the 
FOR-NEXT loop. It sets the value of S to zero. Line 50 is inside the FOR- 
NEXT loop. It is executed for K = 1, K = 2, K = 3, and so on, until K = N. 
Each time, a new value of S is computed. 


52 S=S + kK 
New value “Most recent value of K, 
Old value courtesy of FQR-NEXT loop 


Suppose the INPUT value of N is 4. Then the sequence of values for K will be 1, 
2, 3, 4. So, S will become: 






In line 30: S=0 

In line 50: S=S+K=0+1=1 

In line 50: S=8+K=14+2=3 

In line 50: S$=S8S+K=3+3=6 : 

In line 50: Ou 8+ Eb ahead 10 End of the FOR-NEXT loop. This value 






is printed by line 70. 






Let’s RUN the program. Here is a possible RUN. 


N = ?4 
THE SUM IS 192 


N = ?7 
THE SUM IS 28 


N = ? and so on. Press BREAK to stop. 


29. The product of the numbers from 1 to 3 is: 
1x2x3 =6 
The product of the numbers from | to 5 is: 
1x2x3x4x5 = 120 








FOR-NEXT LOOPS 97 





Your turn. Complete the following program to compute the product of the 
numbers from 1 to N. 


12 CLS 
2@ PRINT : INPUT "N = " 3 N 


32 
4@ FOR K = 1 TON 


s@ 






6@ NEXT K : 
Elsewhere in the program, use 


P to mean ‘“‘product.”’ 







7@ PRINT "THE PRODUCT IS" P 


88 GOTO 28 


P*K or P = K*P 


30. The product of the numbers from 1 to N is called N factorial. It is the 
number of different ways to arrange N objects. For example, N factorial is the 
number of ways to arrange, or shuffle, N playing cards. 


—The number of ways to arrange 3 playing cards is: 
3 factorial = 1x 2x3 = 6 ways 
—The number of ways to arrange 5 playing cards is: 
5 factorial = 1x2x3x4x5 = 120 ways 


Let’s RUN the program and have the TRS-80 compute N factorial for a few 
values of N. 


N = 27 

THE PRODUCT IS 5849 Wow! 5040 ways to 
shuffle 7 cards. 

N = 218 





THE PRODUCT IS 3.6288E+96 


N = ? and soon. 


Aha! A floating point number. See Ap- 
pendix C. 


Try some yourself. If you try a value of N larger than 33, you will get an error 
message as follows: 


N = 34 
?0V ERROR IN 5@ 
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This is an OVerflow error. The TRS-80 can work with numbers up to 1.7E + 38. 
Since 34 factorial is larger than 1.7E +38, the computer prints an error message 
and stops. See Appendix C for a discussion of floating point numbers such as 
1.7E +38. 


31. In the FOR-NEXT loops you have seen so far, the control variable in- 
creases by exactly one (1) each time. You can also write a FOR statement in 
which the control variable increases by a number other than 1. 


FOR X = 1 TO 18]STEP 2 


Tells the computer to increase 
the value of X by 2 each time, 
until X is greater than 10. 


FOR Y = 6 TO SS}ISTEP 18 


Tells the computer to increase 
the value of Y by 10 each time, 
until Y is greater than 50. 


FOR D = 1 TO 2{STEP .25 


Tells the computer to increase 
the value of D by .25 each time, 
until D is greater than 2. 


FOR Statement Variable Sequence of Values 
FOR X = 1 TO 18 STEP 2 x le Si had 
FOR Y = @ TO SS STEP 16 Y¥ @,18,28,32,48,58 


FOR D 1 TO 2 STEP .25 D 1,2.25 912655187552 
Try some yourself. 
FOR Statement Variable Sequence of Values 


FOR E = @ TO 18 STEP 2 es 





FOR R = @ TO 18 STEP 3 


FOR Z = 18 TO 12 STEP .5S 
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32. Wecan even make the TRS-80 count ‘‘backwards”’ by using a negative 
number following STEP. 


FOR C = 18 TO B}STEP —-1} 


C will start at b % Tells the TRS-80 to ‘‘increase”’ 
and count down to 0. C by -1 each time. Or, if you 
prefer, tells the TRS-80 to 
decrease C by 1 each time. 


What is the sequence of values of the variable C in the above FOR statement? 





12,9,8,7,6,5,4,3,2,1,9 


33. We call the following program ‘‘Countdown—Blastoff!’’ Enter it into your 
TRS-80 and RUN it. 


188 REM***COUNTDOWN-BLASTOFF ! 
119 CLS 


222 REM***COUNTDOWN FROM 18 TO @ 

219 FOR C = 18 TO @ STEP -1 

229 PRINT C 

238 FOR Z = 1 TO 388 : NEXT Z 

248 NEXT C 

252 PRINT "BLASTOFF!!!" 3 T = 466 : GOSUB 919 


302 REM***SHOW SPACESHIP ON LAUNCH PAD 


318 CLS 

32@ PRINT 2512, " * as 
332 PRINT 1s s0% © 
34@ PRINT Ue Sse 
358 PRINT 1 age" 
368 PRINT V SERS: Y 
3728 PRINT Tee eee 


388 T = 488 : GOSUB 918 


498 REM***LAUNCH THE SPACESHIP 


41% PRINT woo ttt oo" y T = 3898 1 GOSUB 9198 
428 PRINT "tr! " ; T = 2808 : GOSUB 919 
438 PRINT "oti! " : T = 188 s GOSUB 919 


448 FOR K = 1 TO 16 
458 PRINT : T = 188 : GOSUB 918 
468 NEXT K 


592 REM***ANNOUNCE A SUCCESSFUL LAUNCH AND STOP 
51@ CLS 
520 PRINT “ALL SYSTEMS ARE GO. EVERYTHING IS AOK!" 


532 END : 
This stops the TRS-80 
988 REM***TIME DELAY SUBROUTINE 


91@ FOR Z = 1 TO T +: NEXT Z 
922 RETURN 


Now that you are launched into space, try the Self-Test to pass time until you 
reach your destination. 














100 TRS-80 BASIC 


SELF-TEST 


Well, here we are at another Self-Test, another chance for you to increase your 


self-esteem. Go for it! 


1. Oops! We wanted to write a program to blink the word BLINK. But when 
we ran it, BLINK didn’t blink. Please fix it by adding one statement, with 


an appropriate line number. 


198 CLS 

118 PRINT "BLINK" 
128 FOR Z = 1 TO 58@ 
138 NEXT Z 

148 FOR Z = 1 TO 58 
158 NEXT Z 

169 GOTO 1228 


What statément did you add? 


2. Would you believe? We did it again. Our second program to make BLINK 
blink also had a bug (error). Please find the bug and correct it. 


192 CLS 

118 PRINT "BLINK" 
128 FOR Z = 1 TO 582 
138 NEXT Z 

142 CLS 

15@ FOR Z = 1 TO 58o 
16@ NEXT Z 

178 GOTO 1298 


Your fix? 


3. Complete the following program to ask for a name and then ask how long 


to leave it on. 


198 CLS 

118 INPUT "WHAT IS YOUR NAME" 3; N$ 

128 INPUT "HOW LONG SHALL I LEAVE IT ON” 3 L 
138 CLS: 


148 FOR Z = 1 TO 


158 GOTO 1988 


: NEXT Z 


4. You are the computer. Show what a RUN will look like on your screen. 


192 CLS 

119 FOR B = 8 TO 18 

1298 PRINT 19-B 

138 NEXT B 

142 PRINT "BLASTOFFII!" 


FOR-NEXT LOOPS 101 








Your screen: 


Rewrite the following program so that it is all on one line. 


12@ CLS 

118 PRINT "ONE LINER"; 
128 FOR X = 1 TO 168 
1308 NEXT X 

148 GOTO 1198 





Write a time delay subroutine to count from 1 to 250 for the following 
program. 


198 CLS 

118 FOR X = 170 5 

128 PRINT "THE BLINKING COMPUTER” 
132 GOSUB 1962 

1428 cLSs 

152 GOSUB 1982 

168 NEXT X 


Subroutine: 











Write a statement to print “‘EIGHTH LINE”’ at the beginning of the eighth 
line on the screen using PRINT @. If you wish, you may look at the screen 
map in Appendix E. 


12@ CLS 


118 





128 GOTO 128 
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9. 


Show what will be on the screen when the following program is run. 


198 CLS 


118 FOR N = 1 TO 5 
128 PRINT N3; 
138 NEXT N 


Show what will be on the screen when the following program is run. 


188 CLS 

118 FOR N = 18 TO 2 STEP 
129 PRINT N; 

138 NEXT N 


Write a program to compute the sum of the odd integers from 1 to N. A 
RUN of your program might look like this: 


Nee eS (because 1+3+5 = 9) 
THE SUM IS 9 


N = 79 (because 1+3+5+7+9 = 25) 
THE SUM IS 25 


Write the sequence of values for the control variable in each FOR state- 
ment. 


(a) FoR A=1707 

(b) For 8B = 1 TO 7 STEP 2 
(c) FOR c = 6 TO 7 STEP 2 
(d) FoR D = @ TO 4 STEP 5 


(e) FOR © = 1 TO -1 STEP -1 
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The next two are tricky! It is OK to guess. 
(f) FOR F = 5 TO 3 


(g) FOR G 1 TO 2 STEP @ 


Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where the topic is 


discussed. 

1. 135 cLs (frames 1, 2) 
2. Change 17a coto 192 (frames 1, 2) 
3. 138 CLS : PRINT NS (frames 3, 4) 


148 FOR Z = 1 TOL : NEXT Z 


4. Your screen: 





1 


14) 
9 
8 
7 
6 
s 
4 
3 
2 
1 
7) 
BL 


ASTOFF!!! (frames 24, 27) 


5. 198 CLS : PRINT "ONE LINER"; : FOR X = 1 TO 188 : NEXT X +: GOTO 188 
(frames 6, 8) 
6. 199% FOR Y = 1 TO 259 
1918 NEXT Y 
1828 RETURN (frame 10) 
You may have a different variable and maybe a multiple statement line. 
7. 118 PRINT 0448, "EIGHTH LINE" 


Here is another way to do it. Line 1 begins with print position 0, line 2 with 
position 64, line 3 with position 128, and so on. So line 8 will begin with 
position 7 x 64 = 448. We could write the answer as follows. 


118 PRINT @7*64, "EIGHTH LINE" 


(frames 14-18) 
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10. 


11. 








All on one line because of 
the semicolon at end of 
line 120. 


(frames 23, 27) 


All on one line because of 
the semicolon at the end of 
line 120. 


(frame 32) 


PRINT 
GOTO 118 


Note: If you enter an even integer for N, the computer will compute the 
sum of the odd integers from 1 to N-1. For example: 


N = 


218 because 1+34+5+7+9 = 25) 


THE SUM IS 25 


(frames 28, 31) 


0, -1 

nly. There is no STEP to cause the computer to count backwards. 
1, 1, 1, ... forever! Beware—don’t use STEP 0. 
(frames 27, 31, 32) 


1 
1 
0 
0 
1, 
50 











CHAPTER FIVE 


Meandering 





In this chapter, you will learn to create and use random numbers. These numbers 
will enable you to write your own games and simulations so that events happen 
in a random way. 

After completing this chapter, you will be able to: 


generate whole random numbers over the range of 1 to 32,767; 

use random numbers in PRINT statements and time delays; 

use the IF statement to test a condition for its truth value; 

use IF-THEN to branch out of the computer’s normal sequential order 
of line number operation; 

use inequalities: >, <<, >=, <=, >; 

use flags to find the end of a data list; 

create games: ‘‘Guess My Number,”’ ‘‘Guess My Letter’’; 

annotate your programs with REMARK statements. 





1. We will soon enter the fun-filled realm of computer games. Most computer 
games use random numbers. 
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Random numbers are numbers that are chosen at random from a given set 
of numbers. A die has six sides, numbered 1 through 6. We can roll one die to 
get a random number from 1 to 6. 


This is one die: 


Two or more of them are called dice. 


Suppose we want to get 1 or 2, at random. We flip a coin. If it comes up 
‘theads,”’ call it 1; if it comes up ‘“‘tails,’’ call it 2. 

In BASIC, when we want a random number, we use the RND function. 
RND is an abbreviation for RaNDom number. 

The following program uses the RND function to print random numbers on 
the screen. 


18 CLS 
2 PRINT RND(2)<————==- Here is the RND function. 
38 GOTO 28 


We ran the program twice, stopping each RUN by pressing the BREAK key. 
Here is what happened: 


First RUN Second RUN 





Two runs are shown. Did the second run produce the same list of numbers as the 


first run? 


No. In fact, don’t expect to enter our program into your TRS-80, type RUN, and 
get either list. That’s the idea of random numbers. They are, well, random!. 







One might even say 
“unpredictable.” 
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2. The program in the previous frame prints a list of random numbers. 
Because the program says PRINT RND(2), each random number is 1 or 2. 


RND(2) is a random number, 1 or 2. 
RND(3) is a random number, 1 or 2 or 3. 
RND(4) is a random number, 1 or 2 or 3 or 4. 


In general, if N is a whole number greater than zero, then RND(N) will be a ran- 
dom number in the range 1 to N, inclusive. 


RND(5) is a random number in the range 1 to 5, inclusive. 
Your turn. Complete the following: 
(a) RND(6) is a random number in the range___————_to 
(b) RND(10) is a random number in the range___——————_—ito 
(c) RND(100) is a random number from ________ to 


(a) 1, 6; (b) 1, 10; (c) 1, 100 
3. Instead of a number, we can put a variable in parentheses following the 
word RND. 
The function: RND(N) 
will give a random number from 1 to N. 


If N = 2, then RND(N) will be 1 or 2. 
If N = 3, then RND(N) will be 1, 2, or 3. 
If N = 6, then RND(N) will be 1, 2, 3, 4, 5, or 6. 


Complete the following: 


(a) IfN = 4, then RND(N) willbe__- SS—CSC<‘<CS 
(b) If N = 100, then RND(N) will be a random number in the range 


to. inclusive. 


(a) 1, 2, 3, or 4; (b) 1, 100 
Any variable may be used in the RND function. 


If A = 3, then RND(A) is 1, 2, or 3. 
If Z = 7, then RND(Z) is 1, 2, 3, 4, 5, 6, or 7. 
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4. Experiment. Use the following program to print random numbers from 1 to 
N, where you supply the value of N. 
182 CLS 


119 PRINT "I WILL COMPUTE AND PRINT RANDOM NUMBERS" 
122 PRINT "FROM 1 TON. YOU ENTER THE VALUE OF N.” 


298 PRINT : INPUT "N = 3 N 
38@ CLS 
318 PRINT RND(N),Q 
328 GOTO 318 ree 
7 ~ 


Enter the program, type RUN, and press the ENTER key. 





This is what I WILL COMPUTE AND PRINT RANDOM NUMBERS 
you see, ——————_— FROM 1 TO N. YOU ENTER THE VALUE OF N. 
N=? 


Enter any value of N and press ENTER. The TRS-80 will print random numbers, 
four on each line, until you press BREAK. 

Why four numbers per line? In line 310, the comma at the end of the 
PRINT statement causes the TRS-80 to move to the next standard print position. 
There are four such print positions across the screen, equally spaced. 

Try some values of N, including the following: 


N = 2.9 The TRS-80 will ignore the .9 and print only the numbers, 1 or 2. 

N = -l The TRS-80 will stop with the error message: 7FC ERROR IN 
310. We can’t use negative numbers in the RND function. 

N = 40,000 The TRS-80 will stop with the error message: ?0V ERROR IN 


310. The largest value allowed in the RND function is 32,767. 
(Important! Remember this.) 

N = 0 What? Instead of whole numbers, we get decimals such as 
.566995 or .121945 or .465594. In this book, we will not use this 
type of random numbers. 


5. OK, so RND gives random numbers. What do we do with them? Soon we 
will use random numbers in computer games. But first, let’s use random numbers 
to put a name here, there, or anywhere on the screen. Here for a moment, there 
for a moment, somewhere else for a moment. 
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198 CLS 
118 X = RND(1923) 

128 PRINT @X, "KARL"; 
132 GOSUB 288 

148 GOTO 1298 


228 T = 182 P . 
218 FOR Z = 1 TOT : NEXT Z Time delay subroutine 
228 RETURN 


Look at lines 110 and 120. Line 110 computes a random number from 1 to 1,023 
and puts this number in box X. So the value of X will be a random number from 
1 to 1,023. 

Aha! Line 120 uses the value of X to print KARL in a random place on the 
screen. 

How can we slow things down so that KARL jumps about the screen a little 


less quickly? 





Increase the value of T in line 200. Try T = 300 or T = 500 or T = 1,000. 


Since X is a random number from 1 to 1,023, KARL will never be printed in 
screen position 0 (upper left corner). If we wish to include all 1,024 screen posi- 
tions, from 0 to 1,023, we can change line 110, as follows: 


118 X = RND(1824) - 1 
See Appendix E for a screen map showing all 1,024 printing positions on the 


screen. 


6. Make it easy to change the name that cavorts about the screen. Modify the 
program in the previous frame so that the computer asks for the name. When 
RUN, your program should start like this: 


WHAT IS YOUR NAME? 


Show your changes below: 
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We changed lines 100, 110, 120, and 140, as follows: 


118 CLS : INPUT "WHAT IS YOUR NAME" ; N$ 
118 CLS : X = RND(1923) 

12@ PRINT aX, NS ; 

148 GOTO 119 


7. Wecall this program ‘‘One Star Twinkling.’’ It causes one star (*) to blink 
on and off near the center of the screen. The blinking is uneven because we use a 
random time delay subroutine. 


198 CLS : PRINT a472, "*" Star ON @472 i 
118 GOSUB 328 s 
about here 

222 CLS : GOSUB 392 Star OFF 
398 T = RND(1882) Random 
319 FOR Z = 1 TO T : NEXT Z time delay 
328 RETURN : 

subroutine 





Why is the time delay random? 


Line 310 is a FOR-NEXT loop that causes the TRS-80 to count from 1 to T. The 
value of T is a random number from | to 1,000, computed by RND(1000) in line 
300. So the time delay can vary from a tiny fraction of a second (T = 1) to 
about two seconds (T = 1,000). 


To see even more variation in the blinking, change line 300 to: 
300 T = RND(2000) 


8. This program will put N stars on the screen in random positions. They wait 
a few seconds while you stargaze, then start over. 


122 CLS 

118 INPUT "HOW MANY STARS" 3; N 

ie wath The FOR-NEXT loop puts N 
sia FOR K = 2 70 X stars in random places on the 
228 xX = RND(1923) screen. 





2368 PRINT ax, "*"; 
248 NEXT K 


322 T = 3889 
31@ FOR Z = 1 TO T : NEXT Z 
328 GOTO 169 
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The FOR-NEXT loop could also be written as follows: 


216 FOR K = 1 TON 

220 PRINT @RND(1923), "*"; 

238 NEXT K 

We increased the time delay by changing line 300 to: 300 T = 30000 (about one 
minute). Then we ran the program and entered 100 as the value of N. During the 
time delay, we counted the stars on the screen. There were only 97 stars. 


Explain how we might get fewer stars than the number we asked for. 





Each star is printed in a random place, 1 to 1023, on the screen. It is possible 
that a star is printed in a place already occupied by a star. In this case, the new 
star replaces the old star. 

For example, suppose the third star (K = 3) was printed in position 235. 
Then, later on, the thirty-seventh star (K = 37) was also printed in position 235. 
Although two stars had been printed in position 235, we would see only one. 


9. And now we present a very important and useful feature of BASIC: the IF 
statement. 

The IF statement tells the computer to make a very simple decision. It tells 
the computer to do a certain operation if a given condition is true. However, if 
the condition is false (not true), the operation will not be done. Here is an IF 
statement: 


388 IF X > ® THEN PRINT "YOUR NUMBER IS POSITIVE" 


This IF statement tells the computer: If the value of X is greater than zero, then 
print the message, YOUR NUMBER IS POSITIVE, and go on to the next state- 
ment in line number order. The symbol > means ‘‘is greater than.”’ 

If the value of X is less than zero or equal to zero, the computer does not 
print the message. Instead, it continues executing the program in line number 
order. 


The condition. 
308 IF 'X > @ THEN D> PRINT "YOUR NUMBER IS POSITIVE" 
Follow this path if the x Follow this path if the 
condition is false. condition is frue. 


What is the condition in the above IF statement? 
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X > 0 or X is greater than zero 


10. Here again is the IF statement from frame 9: 
398 IF ,X > @ THEN PRINT "YOUR NUMBER IS POSITIVE" 
This is the condition. 


3. Is the condition true or false? 


(a) Suppose X 
(b) Suppose X = -7. Is the condition true or false? 


(c) Suppose X = 0. Is the condition true or false? 


(a) True. The computer prints the message: YOUR NUMBER IS POSITIVE. 
(b) False. The computer does not print the message. 
(c) False. The computer does not print the message. 


11. The symbol > means ‘‘is greater than.’? The symbol = means ‘‘is equal 


to.’? You can guess that the symbol < means 





‘‘is less than’”’ 


12. Here is a simple program illustrating the use of the IF statement. This pro- 
gram has three IF statements that tell the computer to ‘“‘compare and decide.”’ 


192 CLS 

118 PRINT "ENTER A NUMBER AND I WILL TELL YOU WHETHER" 
128 PRINT "YOUR NUMBER IS POSITIVE, NEGATIVE OR ZERO." 
299 PRINT : INPUT "WHAT IS YOUR NUMBER" ; X 

398 IF X > @ THEN PRINT "YOUR NUMBER IS POSITIVE" 

319 IF X < @ THEN PRINT “YOUR NUMBER IS NEGATIVE” 

329 IF X = ® THEN PRINT "YOUR NUMBER IS ZERO" 

428 GOTO 282 


The following is a sample RUN. 


ENTER A NUMBER AND I WILL TELL YOU WHETHER 
YOUR NUMBER IS POSITIVE, NEGATIVE OR ZERO. 


WHAT IS YOUR NUMBER? -7 : : 
YOUR NUMBER IS NEGATIVE «————— This message printed by line 310. 


WHAT IS YOUR NUMBER? 3 : 
YOUR NUMBER IS POSITIVE «<————— This message courtesy of line 300. 


WHAT IS YOUR NUMBER? @ ; 
YOUR NUMBER 1S ZERO <«——————— Thank you, line 320. 


WHAT IS YOUR NUMBER ? gene And so on. 
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(a) What is the condition in line 300? 
(b) What is the condition in 310? 
(c) What is the condition in line 320? 


(a) X>0Oor X is greater than zero 
(b) X<0or X is less than zero 
(c) X = 0or X is equal to zero 


13. In running the program from the previous frame, the computer executes 
lines 100 through 120 once, since they are ‘‘outside the loop.’’ Lines 200 through 
400 are included in the loop and are executed for each value of X supplied by the 
user after an INPUT question mark. Suppose the user runs the program, types 13 
after the question mark, and then presses ENTER. This assigns the value 13 to 
the variable X. Now look back at the program. Since X = 13 (13 is the value of 
X), the condition in line 300 is ¢rue and the conditions in lines 310 and 320 are 
false. So the computer will print the message in line 300, but will not print the 
messages in lines 310 and 320. 


(a) Suppose X = -7. The condition in line 310 is (true or false) 
and the conditions in lines 300 and 320 are (true 
or false) 
(b) Suppose X = 0. Which condition is true? (Give a line number.) 
Which conditions are false? (Give line 


numbers.) 


(a) True; false. The computer will print the message in line 310, but will not 
print the messages in lines 300 and 320. 

(b) Line 320; lines 300 and 310. The computer will print the message in line 
320, but will not print the messages in lines 300 and 310. 


14. In general, the IF-THEN statement has the following form: 


1F condition THEN Statement 


The statement could be almost any BASIC statement. The condition is usually a 
comparison between a variable and a number, between two variables, or between 
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Ee ee SS SS 


two BASIC expressions. Here is a handy table showing both BASIC symbols and 
math symbols for these comparisons: 


BASIC Symbol Comparison Math Symbol 


is equal to 

is less than 

is greater than 

is less than or equal to 


V AVA 


is greater than or equal to 


K IV IAVA I 


<> is not equal to 
Write each condition in proper BASIC: 
(a) Gis equal to X 





(b) G is less than or equal to X 
(c) Gis greater than X 
(d) Gis greater than or equal to X 


i 


(e) Gis not equal to X 


>= X 
<> X 


= 
aQ 
~ 

Oo oan aA 
Vv 
x 


15. Game time! Here is our first computer game, a simple number-guessing 
game. 

188 CLS 

118 PRINT "I WILL THINK OF A NUMBER. MY NUMBER WILL BE 1 OR 2" 
128 PRINT "GUESS MY NUMBER!!!" 

298 X = RND(2) 

309 PRINT : INPUT "YOUR GUESS (1 OR 2)" 3; G 

319 IF G <> X THEN PRINT "I FOOLED YOU! THAT'S NOT MY NUMBER." 
328 IF G = X THEN PRINT “THAT'S IT. YOU MUST HAVE ESP!" 


482 T = 2869 
418 FOR Z = 1 TO T : NEXT Z 


588 GOTO 188 
Your turn. Answer these questions: 
(a) In line 200, the TRS-80 ‘‘thinks’’ of a secret number, X. What are the 


possible values for X? 








(c) 
(d) 
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What variable holds the player’s guess? 
Which lines compare the guess with the secret number? 
What is the condition in line 310? 


Suppose this condition is true. What happens? 


Suppose the condition is false. What happens? 


What is the condition in line 320? 


Suppose this condition is true. What happens? 


Suppose the condition is fa/se. What happens? 


16. 


1 or 2 

G (lines 300, 310, 320) 

310 and 320 

G <> X (G is not equal to X) 

The TRS-80 prints: | FOOLED YOU! THAT’S NOT MY NUMBER. It 
then moves on to line 320. 

Nothing. The TRS-80 moves on to line 320. 

G = X (Gis equal to X) 

The TRS-80 prints: THAT’S IT. YOU MUST HAVE ESP! It then moves 
on to line 400. 

Nothing. The TRS-80 moves on to line 400. 


One common use of the IF statement is to recognize a signal called a 


“‘flag’’ that terminates one process and begins another. In the following pro- 
gram, we use the number -1 as a flag to interrupt the computer and get the 
desired answer. 


182 
118 
128 
132 
1468 


28D 
398 
318 
322 


42 


cLs 

PRINT “I AM THE WORLD'S MOST EXPENSIVE ADDING MACHINE.” 
PRINT “WHEN I PRINT 'X = ?' YOU ENTER A NUMBER. TO" 
PRINT “QUIT, ENTER -1 AND I WILL PRINT THE TOTAL OF" 
PRINT “ALL YOUR PREVIOUS NUMBERS." : PRINT 








T= 2B 

INPUT "X = " 3 X Lines 300 to 320 are a GOTO loop. But, if 
IF X = -1 THEN GOTO 488 someone enters -1 as the value of X, line 
T= T+ X +: GOTO 398 


310 jumps out of the loop to line 400. 


PRINT : PRINT “THE TOTAL IS" T 
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A RUN might look like this: 


I AM THE WORLD'S MOST EXPENSIVE ADDING MACHINE. 
WHEN I PRINT 'X = ?' YOU ENTER A NUMBER. TO 
QUIT, ENTER -1 AND I WILL PRINT THE TOTAL OF 
ALL YOUR PREVIOUS NUMBERS. 


2.58 

6.49 

27.95 , 

-1 <——_—_———. Aha! Here is our flag saying ‘‘that’s all, folks.”’ 


x x «x 


VvNwvv 


THE TOTAL IS 36.94 


In our program, the flag is -1. Line 310 checks each value of X and, if X = -1, 
jumps out of the loop to line 400. Line 400 prints the total (T) of all numbers 
previous to the flag. 

Any unusual number that will not be used as a normal INPUT value could 
be used as a flag. 

Modify the program so that, instead of using -1 as the flag, we use 999999 
as the flag. You will have to change lines 130 and 310. 


138 PRINT "QUIT, ENTER 999999 AND I WILL PRINT THE TOTAL OF" 
318 IF X = 999999 THEN GOTO 482 


17. Using -1 as a flag may not be a good idea if some of the values we wish to 
use are negative. For example, here are temperatures recorded during one cold 
week in Minneapolis, Minnesota: 


S M T W T F S 
10 3 -9 -15 -23  -25 -30 


In this case, using 999999 as the flag would prevent confusion between a 
temperature of -1 and an end-of-data flag of -1. 

With a few changes, we can modify the program in the previous frame and 
obtain a program to compute the average of a set of numbers. The formula for 
determining the average of N numbers is as follows: 

Asses = Sum or total of the numbers — T | 
Number of numbers N 

In our program, we use the variable T for the total (sum) of the numbers, 

and N for the number of numbers. Complete the program. 
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129 CLS 

119 PRINT "I WILL COMPUTE THE AVERAGE OF A BUNCH OF NUMBERS." 
12@ PRINT "WHEN I PRINT 'X = ?' YOU ENTER A NUMBER. TO" 

138 PRINT "QUIT, ENTER 999999 AND I WILL PRINT THE" 





148 PRINT "AVERAGE OF YOUR PREVIOUS NUMBERS." : PRINT 
209 T=8:N= <«—— Initialize N 
382 INPUT "X = " 3 x 

312 IF X = 999999 THEN GOTO 499 

329 T=T+X:1N=___: GOTO 399 


498 PRINT : PRINT “YOU ENTERED" N "NUMBERS" 
418 PRINT "THE TOTAL IS" T 
422 PRINT "THE AVERAGE IS" T/N 


@ Before any numbers are entered, N is zero. 
n + 1 After each new number (except 999999), increase N by 1. 


Do you understand line 400? 


492 PRINT +: PRINT "YOU ENTERED" N "NUMBERS" 


es | 
First, print this ee 


Then, print the value of N 
Then, print this 


Got it? If not, the RUN in the next frame may help. 


18. Here is a RUN of the program in the previous frame, using those (brrr!) 
temperatures from Minneapolis: 


I WILL COMPUTE THE AVERAGE OF A BUNCH OF NUMBERS. 
WHEN I PRINT *X = ?' YOU ENTER A NUMBER. TO 

QUIT, ENTER 999999 AND I WILL PRINT THE 

AVERAGE OF YOUR PREVIOUS NUMBERS. 


X=? 18 

x= 2-3 

xX =? -9 

X = ? -15 

X = ? -23 p= 

X= 7% -25 oe the flag! 

X = ? -30 by 

x = 9 699999 = 

YOU ENTERED 7 NUMBERS ; Yes, that was a cold 
THE TOTAL IS ~-89 week in Minneapolis! 


THE AVERAGE IS -12.7143 





Relax! No questions. But look at those temperatures. Can you imagine what the 
next week was like?! 
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19. OK, your turn. Write a program to multiply the numbers entered by the 
user. Use 999999 as a flag to terminate the entering of numbers and get the 
answer. Here is a RUN of our program: 


I AM THE WORLD'S MOST EXPENSIVE NUMBER CRUNCHER. 
WHEN I PRINT 'X = ?' YOU ENTER A NUMBER. I 

WILL MULTIPLY ALL YOUR NUMBERS. TO QUIT, ENTER 
999999 AND I WILL PRINT THE ANSWER. 


? 12 
? 7 


? 23 
? 999999 Ny (2) 


I MULTIPLIED YOUR NUMBERS. THE ANSWER IS 1932. 


xx «Kx 
fh th Wout 


Write your program below: 


118 PRINT "I AM THE WORLD'S MOST EXPENSIVE NUMBER CRUNCHER." 
12@ PRINT “WHEN I PRINT 'X = ?* YOU ENTER A NUMBER. I" 
138 PRINT "WILL MULTIPLY ALL YOUR NUMBERS. TO QUIT, ENTER" 


148 PRINT "999999 AND I WILL PRINT THE ANSWER.” : PRINT 
208 P= 1 
388 INPUT "X = "3 xX 


310 IF X = 999999 THEN GOTO 488 
326 P = P*X : GOTO 368 
49@ PRINT : PRINT "I MULTIPLIED YOUR NUMBERS. THE ANSWER IS" P 


20. Game time again. This game is very much like our simple number-guessing 
game in frame 15. In this game, the computer ‘‘thinks’’ of a letter instead of a 
number. 
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1@2 CLS 
118 PRINT "I WILL THINK OF A LETTER. MY LETTER WILL BE A OR 2" 
128 PRINT “GUESS MY LETTER!!!" 


208 X = RND(2) 

218 IF X = 1 THEN XS = "A" 

228 IF X = 2 THEN X$ = "Zz" 

30% PRINT : INPUT “YOUR GUESS (A OR Z)" 3; G$ 


318 IF G&S <> X$ THEN PRINT "I FOOLED YOU! THAT'S NOT MY LETTER" 
320 IF GS = X$ THEN PRINT "THAT'S IT. YOU MUST HAVE ESP!" 


492 T = 2880 
418 FOR Z = 1 TO T : NEXT Z 


588 GOTO 198 

Your turn. Answer the questions. 

In line 200, X will be 1 or 2. If X is 1, the computer’s secret letter will be A 
(line 210). 

(a) But what if X is 2? What will the secret letter be? 

(b) What string variable is used to hold the secret letter? 

(c) What string variable is used to hold the player’s guess? 

Lines 310 and 320 compare the guess (G$) with the secret number (X$). 
(d) What is the condition in line 310? 

(ec) What is the condition in line 320? 

(f) OK, got it? 


(a) z_ (line 220) 

(b) xs (line 210 or line 220) 

(c) Gs (line 300) 

(d) Gs <> xs 

(e) Gs = xs 

(f) We hope you said yes. If not, then compare this program with the one in 
frame 15. The only real differences are the manner of choosing the secret 
letter (lines 200-220) and the use of string variables, X$ instead of X, and 
G$ instead of G. In fact, in lines 200 to 220, we use both a numeric 
variable (X) and a string variable (X$). 
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21. This game is similar to the game in frame 15. 

182 CLS 

118 PRINT "I WILL THINK OF A NUMBER. MY NUMBER IS 1, 2 OR 3." 
128 PRINT "GUESS MY NUMBER!!!" 

288 X = RND(3) (X will be 1, 2, or 3) 

302 PRINT : INPUT "YOUR GUESS (1,2,0R 3)" 3; G 

318 IF G <> X THEN PRINT "I FOOLED YOU! THAT'S NOT MY NUMBER." 
329 IF G = X THEN PRINT "THAT'S IT. YOU MUST HAVE ESP!" 


482 T = 2862 
418 FOR Z = 1 TO T : NEXT Z 


528 GOTO 168 


No questions. Enjoy! 


22. Instead of 1, 2, or 3, guess A, B, or C. You complete the program. 


188 CLS 
118 PRINT "I WILL THINK OF A LETTER. MY LETTER IS A, B, OR C." 
128 PRINT "GUESS MY LETTER!!!" 





208 X = RND( ) 

21@ IF X = 1 THEN X$ = "A" 

22@ IF X = 2 THEN X$ = 

238 

388 PRINT : INPUT “YOUR GUESS (A,B, OR C)" 3; GS 


318 IF GS <> X$ THEN PRINT "I FOOLED YOU! THAT'S NOT MY LETTER" 
326 IF G$ = X$ THEN PRINT "THAT'S IT. YOU MUST HAVE ESP!" 


418 FOR Z = 1 TO T : NEXT Z 






"hr 


Just a gentle 
IF (X_=_ 3) THEN ,X$ = "Cy 


reminder! 


Condition Statement (=) 


23. Our next game is an ancient ‘‘guess my number’’ game. Note the multiple 
statements per line in lines 310 and 320. Enjoy the game first, then read the next 
few frames to find out how the game works. 
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a 


198 CLS 

119 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 189." 

128 PRINT "GUESS MY NUMBER!!!" 

228 X = RND(18B) 

308 PRINT : INPUT "YOUR GUESS" ; G 

318 IF G < X THEN PRINT "TRY A BIGGER NUMBER." : GOTO 388 
328 IF G > X THEN PRINT "TRY A SMALLER NUMBER." : GOTO 3898 
498 IF G = X THEN PRINT "THAT'S IT! YOU GUESSED MY NUMBER." 
418 T = 2928 

42@ FOR Z = 1 TO T : NEXT Z 

582 GOTO 128 

Line 200 tells the computer to generate a random number as the value of X. This 
number will be a(n) ____ SS SCSCSCSSsfrcom 


to. C—“CsCCSCC®ysrstclusiive. 


integer (or whole number); 1; 100 


24. In lines 310 and 320, we use another feature of the IF statement. In line 
310, if the condition is true, everything following the word THEN will be done. 
But if the condition is false, neither the PRINT statement nor the GOTO state- 
ment will be done. 


312 IF G < X THEN PRINT "TRY A BIGGER NUMBER." + GOTO 392 


All of this is done if the condition is true. 
None of this is done if the condition is false. 





The condition is: G< X 

(a) Suppose G = 70 and X 
(b) Suppose G = 90 and X 
(c) Suppose G = 73 and X 


73. Is the condition true or false? 


73. Is the condition true or false? 


73. Is the condition true false? 


(a) True. The computer will print TRY A BIGGER NUMBER and go to line 
300. 

(b) False. The computer will ignore everything to the right of THEN and move 
on to line 320. 

(c) False. The computer will ignore everything to the right of THEN and move 
on to line 320. 


a 
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25. Line 300 causes the computer to print YOUR GUESS? and wait for a 
guess. When the player enters a guess, the computer stores it in box G. Lines 
310, 320, and 400 compare the guess (G) with the secret number (X). Let’s look 
again at line 310: 


318 IF G < X THEN PRINT "TRY A BIGGER NUMBER." : GOTO 386 


If the guess G is less than the number X, the computer will print the message 
TRY A BIGGER NUMBER and will then GOTO line 300 to ask for another 
guess. However, if G is greater than X or equal to X, neither the PRINT nor the 
GOTO will be done. Here is another way to ‘“‘picture’’ that idea: 


318 IF G < X UTHEN PRINT "TRY A BIGGER NUMBER." : GOTO 390, 


All this is done if the condition is true. 
None of this is done if the condition is false. 


So, if G > X is false, the computer goes on to line 320. Describe what happens 
when the computer executes line 320. 


328 IF G > X THEN PRINT "TRY A SMALLER NUMBER." : GOTO 389 


(a) If Gis greater than X (G > X is true), then 


(b) However, if G is not greater than X (G > X is false), then 


(a) the computer will print the message TRY A SMALLER NUMBER and then 
GOTO line 300 for another guess. 

(b) neither the PRINT nor the GOTO will be done. The computer will move on 
to line 400, which follows line 320 in line number order. 
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26. Eventually, the player will guess the number. Then, G > X is false and G< 
X is false. The computer will finally arrive at line 400. Here is a picture of the 
entire process of arriving at line 400: 


" 318 IF G < X [TRUE » THEN PRINT "TRY A BIGGER NUMBER." : GOTO 388 


328 IF G > X THEN PRINT "TRY A SMALLER NUMBER.” : GOTO 389 


498 IF G = X THEN PRINT "THAT'S IT! YOU GUESSED MY NUMBER.” 


Suppose the player has guessed the number and entered the correct guess. 
Therefore, G > X is false, G < X is false, and, of course, G = X is true. What 
happens? 











The computer prints THAT’S IT! YOU GUESSED MY NUMBER and, since 
there is no GOTO in line 400, moves on to line 410. 


Hmmmzn ... If G < X is false and G > X is false, then G = X must be true. 
So we could have written line 400 as follows: 


498 PRINT "THAT'S IT! YOU GUESSED MY NUMBER." 


There are three paths in lines 300 through 400. We suggest that you return to 
frame 23 and mark these paths in three colors. For example, 


Red path: 300 to 310 to 300, etc. 
Blue path: 300 to 310 to 320 to 300, etc. 
Green path: 300 to 310 to 400 to 410, etc. 


27. We may wish to change the range of numbers in this game. For example, 
for very young children, we might want to make the range | to 10 or 1 to 20. For 
advanced players, 1 to 1,000. 


ea SSS 
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(a) Modify lines 110 and 200 so that the range is 1 to 20. 
110 
200 

(b) Modify lines 110 and 200 so that the range is 1 to 1,000. 
110 
200 


(a) 119 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 29." 
288 X = RND(29) 


(b) 119 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 1999." 
282 X = RND(1898) 


28. This way makes it easier to change the range. 


188 CLS 

118 R = 188 

129 PRINT "I WILL THINK OF A NUMBER FROM 1 TO" R 
13@ PRINT "GUESS MY NUMBER!!!" 


208 X = RND(R) 


Now the range is 1 to R, where R is assigned a value in line 110. This value of R 
is used in lines 120 and 200. So, to change the range, change only line 110. Sup- 
pose you want the range to be 1 to 500. What do you write for line 110? 





118 R = 586 


29. Why not let the player choose the range? Here is a RUN of our program. 
You write a program that will produce this type of RUN. 


I WILL THINK OF A NUMBER FROM 1 TO R, 
FIRST, YOU MUST TELL ME THE VALUE OF R. 


WHAT IS R? 1898 
OK, I HAVE A NUMBER FROM 1 TO 1829 «———————. Value of R.. 


YOUR GUESS? 528 
TRY A SMALLER NUMBER Write your program in the meager 


space provided by our publisher. 


YOUR GUESS? and soon. 
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a  ——————— 


18 CLS 

11@ PRINT "I WILL THINK OF A NUMBER FROM 1 TO R." 
12@ PRINT “FIRST, YOU MUST TELL ME THE VALUE OF R." 
139 PRINT : INPUT "WHAT IS R" ; R 


288 X = RND(R) 
218 PRINT : PRINT "OK, I HAVE A NUMBER FROM 1 TO" R 


398 PRINT : INPUT "YOUR GUESS" ; G 

318 IF G < X THEN PRINT "TRY A BIGGER NUMBER” : GOTO 398 

328 IF G > X THEN PRINT "TRY A SMALLER NUMBER" : GOTO 388 

498 PRINT "THAT'S IT! YOU GUESSED MY NUMBER." 

418 T = 29998 

42@ FOR Z = 1 TO T : NEXT Z 

58@ GOTO 128 

30. Trouble! Here is what might happen when we RUN our program of the 
previous frame: 


I WILL THINK OF A NUMBER FROM 1 TO R. 
FIRST, YOU MUST TELL ME THE VALUE OF R. 


WHAT IS R? 46889 
?0V ERROR IN 288 


Oops! The RND function works with whole numbers up to 32,767, or with 0. 


RND(R) 


Must be less than or equal to 32,767, 
or can be zero (0). 


nn 
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But zero will also be trouble in this game. If R = 0, then RND(0) will be a 
decimal number between 0 and 1—terribly difficult to guess!* 

Avoid trouble. We suggest that you add the following two statements to 
our program. These statements will ‘‘trap’’ undesirable values of R. 


148 IF R > 32767 THEN PRINT "R MUST BE LESS THAN 32768" ; GOTO 139 
158 IF R = @ THEN PRINT "R MUST BE 1 OR MORE" : GOTO 139 


Hmmmn .. . almost forgot. Negative values of R also give trouble. 
168 IF R < ® THEN PRINT "R MUST BE A POSITIVE NUMBER" : GOTO 139 


Or we could combine lines 150 and 160 into a single line. 


158 IF R < 1 THEN PRINT "R MUST BE 1 OR MORE" : GOTO 132 


31. Our programs are getting longer. In order to make them more understand- 
able to people, from now on we will frequently include REMARK statements. 

REMARK statements are for people. They explain what is happening in the 
program. The computer ignores REMARK statements. 

Here again is our number-guessing game from frame 23. We have rewritten 
it, using REMARK statements to describe—to people—what is happening in the 
program. 

188 REMARK THIS IS A NUMBER GUESSING GAME 
118 REMARK EXPLAIN THE GAME TO THE PLAYER 


128 PRINT "I WILL THINK OF A NUMBER FROM 1 TO 199." 
138 PRINT "GUESS MY NUMBER!!!" 


288 REMARK COMPUTER 'THINKS' OF A SECRET NUMBER, X 
218 X = RND(182) 


396 REMARK GET GUESS (G), COMPARE WITH X, GIVE HINT 


318 PRINT +: INPUT "YOUR GUESS" ; G 
328 IF G < X THEN PRINT "TRY A BIGGER NUMBER" : GOTO 312 
338 IF G > X THEN PRINT "TRY A SMALLER NUMBER" : GOTO 319 


40% REMARK PLAYER HAS GUESSED THE NUMBER 

412 PRINT "THAT'S IT! YOU GUESSED MY NUMBER." 

428 T = 2999 

43@ FOR Z = 1 TO T : NEXT Z : REMARK TIME DELAY 
448 GOTO 198 : REMARK GOTO BEGINNING 


Since REMARK is a statement, it can occupy a line all by itself or be on the 
same line as other statements. Which lines contain REMARK statements along 


with other statements? Lines and_ is 





*One of the nicest things about the TRS-80 is the way the RND function works. It gives infeger ran- 
dom numbers in a way that is easy to understand and use by people who are not math wizards. Most 
other BASICs give random numbers between 0 and 1. We can’t understand why—most applications 
(especially games!) require integer random numbers. In most BASICs, much mind-boggling math is 
required to get the desired integer random numbers. In the TRS-80, you can use RND(0) to do ran- 
dom numbers the way other computers do them. For more information, consult your Level IJ BASIC 
Reference Manual, available from most Radio Shack stores. 


_-ewS eee 


wi. 
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TT 


438 3; 448 


32. Your turn. Here is a rewrite of our game in frame 20. Complete the 
REMARK statements describing the program. 


188 REMARK 





118 REMARK 





12@ CLS 
13@ PRINT "I WILL THINK OF A LETTER. MY LETTER WILL BE A OR Zs" 
148 PRINT "GUESS MY LETTER!!!" 


288 REMARK __ ss SSSSsSsSsSSSSSSSSSSSSSSSSSSSSSSSFSSSSSSSSSSSSee 
218 X = RND(Z) 

228 IF X = 1 THEN X$ = "A" 
238 IF X = 2 THEN X$ = 


320 REMARK — 

318 PRINT : INPUT “YOUR GUESS (A OR Z)" ; G$ 

320 IF GS <> X$ THEN PRINT "I FOOLED You! THAT'S NOT MY LETTER." 
339 IF G$ = X$ THEN PRINT “THAT'S IT. YOU MUST HAVE esp!" 


REMARK 


418 T = 2888 
429 FOR Z = 1 TO T : NEXT Z 


592 GOTO 1298 : REMARK ___ ee 


198 REMARK THIS IS A LETTER GUESSING GAME, GUESS A OR Z 

118 REMARK EXPLAIN THE GAME TO THE PLAYER 

20% REMARK COMPUTER 'THINKS' OF SECRET LETTER (X$), A OR Z 

302 REMARK GET GUESS (G$), COMPARE WITH X$, TELL WHAT HAPPENED 
49@ REMARK TIME DELAY, DEPENDS ON VALUE OF T 

592 ... REMARK GOTO BEGINNING 


Instead of REMARK, we can write REM. For example, line 100 can be written 
as follows: 


198 REM THIS IS A LETTER GUESSING GAME, GUESS A OR Z 
To call attention to REM statements, we may also write them like this: 
199 REM***THIS IS A LETTER GUESSING GAME, GUESS A OR Z 


You have now learned how to use random numbers in games and recreations. 
Try the following Self-Test, if you like, to see how well you have learned to use 
the mysterious and unpredictable RND functions. 


SELF-TEST 


1. What possible values would be printed when these statements are executed? 





(a) PRINT RND(S) 
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(b) PRINT RND(9) 
(C) PRINT RND(8)-1 
2. Complete the following: 
(a) IfN = 3, then RND(N) will be 
(b) IfX 


150, then RND(X) will be a random number in the range of 
——— ees 

(c) If D = 5.3, then RND(D) will be 
3. Where would the word HERE be printed if this program were executed? 


TT  eeeeeeSeeeeeeSeSeSSSSFFSFsese 


18@ CLS 





128 N = RND(68)~-1 
138 PRINT @N, WS 


4. Tell how many stars would be printed and where they would be printed by 
this program. ss ee 
ee eeeeeeeeeeeeSSSSSSSSSSSSSSS 


18@ CLS 
118 FOR P = 968 TO 973 
128 PRINT aP, "*" ; 
138 NEXT P 
148 GOTO 148 
5. This line is added to the program in exercise 4: 


115 IF P = 973 THEN GOTO 132 
If rerun with this modification, how many stars will be printed? 
6. Tell what these BASIC conditions mean. 








(a) aA =x 
(b) a <> x 
(Cc) aA>x a ee ee eee 


(d) acs=x 
(e) a< x ee 


(B&BS 
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eee —— ——— ee m="! 


7. Study this ‘‘Seeing Stars’’ program and answer the questions that follow it. 


192 CLS 

112 PRINT "I AM SEEING STARS. I SEE LESS THAN 4 STARS." 
12@ INPUT "HOW MANY STARS DO YOU THINK I SEE" 3; A 

138 N = RND(3) 

149 CLS 

15@ IF A = N THEN PRINT "YOU ARE RIGHT!" 

16@ PRINT @192, "YOU SAID" ; A 

178 FOR W = 1 TO A: PRINT "*" 3; : NEXT W 

182 PRINT 2384, "I SAW" 3; N 


199 FOR W = 1 TON: PRINT "*" ¢ : NEXT W 
286 FOR D = 1 TO S88 : NEXT D 
2128 GOTO 188 





(a) What are the possible values for N at line 130? 


(b) How many stars will be printed by line 170? 





(c) The number of stars printed by line 190 depends upon the value 
assigned to what variable? 

(d) Which other line(s) would have to be changed if line 110 is changed to: 
119 PRINT "I AM SEEING STARS. I SEE LESS THAN 6 STARS." 


ee 


(e) Will all the stars resulting from line 170 be on the same line? 


8. Here is another program to calculate N factorial. Line 120 contains a flag 
that can be used to terminate the program. 


198 CLS : T= 1 
t 


11@ INPUT "X = : xX 

12@ IF X < @ THEN GOTO 1998 

138 FOR N = 1 TO X 

148 T = T*N 

15@ NEXT N 

169 PRINT X ; "FACTORIAL = " T 


179 FOR X = 1 TO 1688 : NEXT X 
182 GOTO 188 
19@ END 
(a) What number(s) can you input to terminate the program? 
a 


(b) What’s the purpose of line 170? _________ 


nnn ee Ea EEE 
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9. Here is a program called ‘‘A Reward If You Guess My Letter’’: 


122 
110 
128 
138 
148 
152 
16% 
178 
182 
198 
286 
218 
228 
238 
248 
256 


(a) 


(b) 


(c) 


cLS 
PRINT "I PROMISE A REWARD IF YOU GUESS MY LETTER." 
X = RND(3) 


IF X = 1 THEN xs = "a" 

IF X = 2 THEN X$ = "B" 

IF X = 3 THEN x$ = "c" 

INPUT "WHAT IS MY LETTER (A, B, C)" ; G$ 
IF G$ = X$ THEN GOTO 299 

INPUT "SORRY, NO REWARD. TRY AGAIN!" ; GS 
GOTO 172 A 


CLS : PRINT "REWARD TIME" 
FOR C = 11 TO 1923 

PRINT ac, "*" 

FOR W = 1 TO 18 : NEXT Ww 
NEXT C 
GOTO 126 


The probability for getting a reward is very high. You should be able 
to receive a reward in at least how many tries? 


If your first guess is wrong, what happens? 





———-_-— eee 


Suppose you want the player to have only one guess. Change line 180 
So that it will have a time delay, and change 190 so that the program 
will go back to the beginning. 


182 (multiple statement) 





198 GOTO 





10. ‘‘Guess My Number Again.’’ This time a scorecard is added. 


128 
112 
128 
229 
388 
318 
328 
338 
48D 
418 
428 
436 
448 
450 
468 


(a) 
(b) 
(c) 
(d) 


CLS : N= Q@ 

PRINT "I WILL THINK OF A NUMBER FROM 1 TO 188." 
PRINT "THEN YOU GUESS MY NUMBER." 

X = RND(18@) 


PRINT : INPUT "YOUR GUESS" ; G 

N=N+41 

IF G < X THEN PRINT "TRY A BIGGER NUMBER" : GOTO 329 
IF G > X THEN PRINT "TRY A SMALLER NUMBER" : GOTO 39a 
CLS 

PRINT "YOU GUESSED IT IN" ; N ; "TRIES" 

PRINT "YOU GET ONE STAR FOR EACH TRY" 


FOR Y = 1 TON : PRINT "*" 3 NEXT Y 

PRINT "TRY AGAIN AND SEE HOW CLOSE YOU CAN COME TO ONE STAR." 
FOR Z = 1 TO 188 : NEXT Z 

GOTO 1228 


Why was N set to zero in line 100? 





Why was line 310 added? 
How many stars will be printed by line 430? 





What is the smallest number of stars when this program is RUN? 





i 


, 


11. 
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Test your ESP again. We will give you exactly ten tries at guessing a 
number 1 or 2. Your ESP score will be given at the end. 


182 
125 
112 
120 
208 
382 
318 
328 
3308 
348 
359 
366 
378 
482 
418 


(a) 
(b) 


(c) 


CLS : C = @ 
FOR N = 1 TO 18 

PRINT “I AM THINKING OF A NUMBER." 

PRINT “IT IS EITHER 1 OR 2." 

X = RND(2) 

PRINT: INPUT "YOUR GUESS (1 OR 2)" 3; G 
IF G <> X THEN PRINT "I FOOLED YOU! THAT'S NOT MY NUMBER." 
IF G = X THEN C = C + 1 : PRINT "THAT'S CORRECT. SCORE ONE FOR YOU." 
FOR Z = 1 TO 198 : NEXT Z 


cLS 

NEXT N 

PRINT "YOU GUESSED" ; C 3; "CORRECT OUT OF 198." 
PRINT "THAT'S" ; C*18 ; "PERCENT." 

FOR Z = 1 TO 1898 : NEXT Z 

GOTO 188 


Which program lines limit the number of tries? 
What trouble would arise from changing line 410 to: 


418 GOTO 185 





Suppose we want to change the program to twenty tries instead of ten. 
Tell which lines must be changed and show how you would change 
them. 











Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where the topic is 


discussed. 
1. 





(a) 
(b) 
(c) 
(a) 
(b) 
(c) 


1, 2, 3, 4, or 5 (frames 1, 2) 

1, 2, 3, 4, 5, 6, 7, 8, or 9 (frames 1, 2) 
0, 1, 2, 3, 4, 5, 6, or 7 (frames 1, 2, 5) 
1, 2, 3 (frames 3, 4) 

1 to 150 (frames 3, 4) 

1, 2, 3, 4, or 5 (the .3 is ignored) (frame 4) 


Somewhere on the first line of the display starting anywhere from position 
0 to position 59. (frames 5, 6) 


14 stars would be printed at the bottom of the screen (positions 960-973). 
(frame 8) 
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5. 13 (the PRINT statement will not be executed when P = 973). (frames 9, 
10, 12) 


(a) A equals X 
(b) A does not equal X 


(c) A is greater than X 

(d) A is less than or equal to X 

(e) A is less than X 

(f) A is greater than or equal to X (frames 11, 12, 14) 


(a) 1,2, or3 

(b) 1, 2, or 3 (it depends on your input at line 120) 
(c) the variable N 

(d) only line 130 to 130 N = RND(5) 

(e) yes 





8. (a) Any negative number (-1, -2, -3, etc.) 
(b) Time delay so that you can read the result (feel free to change the 
upper limit) 


9. (a) 3 at the most 
(b) Sorry message is printed and another input is requested; it is then 
checked. 


(Cc) 188 FOR Ww = 1 TO 209 : NEXT w 
198 GOTO 199 


10. (a) To initialize the number of guesses—to start at zero. 
(b) To count the number of guesses 
(c) Whatever number of guesses is needed to get the correct answer 
(d) One (correct guess the first time) 


11. (a) Line 105 and line 350 (FOR-NEXT) 
(b) The count would not be set back to zero and the score would 


accumulate. 

(c) 185 FOR N = 1 TO 26 
358 PRINT "YOU GUESSED" ; C ; "CORRECT OUT OF 29." 
368 PRINT "THAT'S" ; C*¥5 3; "PERCENT." 











CHAPTER SIX 


Patterns and Games 








In this chapter, you will begin to learn how to put patterns on the screen, use 
graphics statements to put collections of “‘stars’’ on the screen, and draw simple 
“‘pictures.”? You'll also learn about the INKEY$ function and how to use it to 
stop and restart the action on the screen. The chapter ends with a game that you 
can use to test your reaction time. 

After completing this chapter, you will be able to: 


° turn on tiny rectangles of light on the screen using the SET statement; 

* control the placement of rectangles on the screen—the key to TRS-80 
graphics; 

e light up rectangles in randomly chosen positions; 

e draw borders around messages; 

paint the screen white and then “‘punch’’ holes in it by using the 

RESET statement; 

e blink the rectangles of light on and off; 

e draw mandalas; 

© use the INKEY$ function to input from the keyboard without stopping 

the program; 

test your keyboard reaction time in response to signals from the 

screen. 


1. Patterns! That’s what we will do in this chapter. We will show you how to 
put patterns on the screen, using tiny rectangles of light. To do this, we will use 
the SET statement. 


SET turns on a tiny rectangle of light somewhere on the screen. 


Somewhere on the screen? Well, of course, we must tell the TRS-80 where to 
turn on the tiny rectangle of light. 











SET(64,24) 


This far OVER. This far DOWN. 





Tiny rectangle of light 


pe 


(a) SET(100,30) tells the TRS-80 to turn on a tiny rectangle of light. 
How far OVER? ____=sSssSSSsC How far DOWN? 

(b) SET(0,0) tells the TRS-80 to turn on a tiny rectangle of light. 
How far OVER?______——SssS—S—sC How far DOWN? 


(a) 100,30; (6) 0,0 (This is the upper left corner of the screen.) 


2. Think of it like this: SET(OVER,DOWN) 


—OVER can be a whole number, 0 to 127. 
—DOWN can be a whole number, 0 to 47. 


OVER 
0 to 127 —— 





0 to 47 


Zou 


(a) What is the smallest value allowed for OVER? 
(b) What is the largest value allowed for OVER? 
(c) What is the smallest value allowed for DOWN? 
(d) What is the largest value allowed for DOWN? 
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(a) 0; (b) 127; (c) 0; (d) 47 


For either OVER or DOWN, a value less than zero (0) will cause an error 
message. For OVER, a value greater than 127 will cause an error message; for 
DOWN, a value greater than 47 will cause an error message. 

In all, there are 12848 = 6,144 places to put tiny rectangles of light on 
the screen. 


3. Experiment! Try these to see how SET works. If you are not using a 
TRS-80 just now, make clever guesses. 
Press CLEAR, then press ENTER. 


(a) Type SET(0,0) and press ENTER. Where is the tiny rectangle? 


(b) Type SET(127,0) and press ENTER. Where is the tiny rectangle? 





(c) Type SET(0,47) and press ENTER. Where is the tiny rectangle? 


(d) Type SET(127,47) and press ENTER. Where is the tiny rectangle? 





(a) upper left corner; (b) upper right corner; (c) lower left corner; (d) lower right 
corner 


SET (0,0) SET (127,0) 


SET (0,47) SET (127,47) 


4. Now, imagine that the screen is the night sky. Pretend that each tiny rec- 
tangle of light is a star appearing in the night sky. You make it happen by enter- 
ing and running this program. 


192 REM***STARFALL, A PROGRAM BY FIREDRAKE THE DRAGON 
118 CLS 


228 REM***TURN ON RANDOM STARS 
218 OVER, = RND(127) 
228 DOWN = RND(47) 
238 SET(OVER,DOWN) 
248 GOTO 218 
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When you RUN this program, the ‘‘sky’’ will begin filling with ‘‘stars.’? Try to 
find . . . constellations, shapes, patterns . . . as stars turn on. 

Did you notice? In lines 210, 220, and 230, we used OVER and DOWN as 
numeric variables! Yes, this is OK. In the past, we have used only single letters as 
numeric variables. But, if we are careful, we can use words as variables . . . and 
will do so occasionally from now on. 

Beware! You can get into lots of trouble using words as variables. For ex- 
ample, you can’t use LETTER as a variable because it contains LET, which is a 
special, reserved BASIC word. And you can’t use SPRINT because it contains 
PRINT. And you can’t use DIFFERENCE. 


LETTER SPRINT DIFFERENCE 


LET PRINT IF 


For a list of reserved words, see Appendix F. 

More trouble! BASIC looks only at the first two letters of a variable. So it 
thinks that DISTANCE and DIAMETER are the same variable. Of course, you 
can’t use DISTANCE anyway, because it contains TAN, which is a reserved 
word. But BASIC thinks that ABC and ABD are the same variable . . . and they 
aren’t even words! 

Fortunately, neither OVER nor DOWN is a reserved word. And their first 
two letters are different! So we can use OVER and DOWN as numeric variables. 


5. Do you understand everything you know about ‘‘Starfall’’? If not, follow 
the arrows (we omit the REMARK statements since the TRS-80 ignores them). 


182 CLS 


218 OVER = RND(127) 
22@ DOWN = RND(47) 







239 SET(OVER,DOWN) 
248 GOTO 218 
Line 210 computes a value of OVER in the range 1 to 127. 

(a) Line 220 computes a value of DOWN in the range_____ to 
(b) Will OVER ever be zero? 

(c) Will DOWN ever be zero? 
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(a) 1, 47; (b) no; (c) no 


To use the entire screen, change lines 210 and 220 as follows: 


218 OVER = RND(128)-1 Now OVER will be a random number 
from 0 to 127. 

228 DOWN = RND(48)-1 Now DOWN will be a random number 
from 0 to 47. 


6. A birthday card for mother. We want to ‘‘paint’’ a border around the 
screen, then print HAPPY BIRTHDAY MOTHER, as shown below: 


HAPPY 
BIRTHDAY 


MOTHER 





First, let’s paint a ‘‘line’’ across the top of the screen. 


182 REM***A BIRTHDAY CARD FOR MOTHER 
118 CLS 


290 REM***PAINT A LINE ACROSS THE TOP OF THE SCREEN 
218 FOR OVER = @ TO 127 

228 SET(OVER,®) 

238 NEXT OVER 


Try it. The TRS-80 will draw a line across the top of the screen, then print 
READY, which wipes out part of the line. 








READY 
>_ 


Never mind, we aren’t 
finished yet. 
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You write a FOR-NEXT loop to paint a line across the bottom of the screen. 


388 REM***PAINT A LINE ACROSS THE BOTTOM OF THE SCREEN 


FOR OVER = 8 TO 127 
SET(OVER,47) 
NEXT OVER 





7. Let’s add a FOR-NEXT loop to draw a line down the right side of the 
screen. Look for it in lines 400-430: 


196 REM***A BIRTHDAY CARD FOR MOTHER 
118 CLS 


298 REM***PAINT A LINE ACROSS THE TOP OF THE SCREEN 
218 FOR OVER = @ TO 127 

226 SET(OVER,®@) 

238 NEXT OVER 





382 REM***PAINT A LINE ACROSS THE BOTTOM OF THE SCREEN 
318 FOR OVER = @ TO 127 

322 SET(OVER,47) 

332 NEXT OVER 


482 REM***PAINT A LINE DOWN THE RIGHT SIDE OF THE SCREEN 
41@ FOR DOWN = @ TO 47 

428 SET(127,DOWN) 

43@ NEXT DOWN 

Your turn again. Paint the line down the left side of the screen. 
588 REM***PAINT A LINE DOWN THE LEFT SIDE OF THE SCREEN 


518 





528 





518 FOR DOWN = @ TO 47 
528 SET(@,DOWN ) 
538 NEXT DOWN 


If you RUN our program, it draws a box around the screen. But then it stops 
and prints READY, which clobbers part of our box. Aha! Add a do-nothing 
line, as follows. 


999 GOTO 999 


Now RUN the program. When you tire of looking at our box, press BREAK. 
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8. We have the border painted on the screen. Now let’s print the birthday 
message to mother. 


622 REM***PRINT THE HAPPY BIRTHDAY MESSAGE TO MOTHER 
618 PRINT @268, "HAPPY"; 

62@ PRINT 0588, "BIRTHDAY"; 

638 PRINT 2898, "MOTHER"; 


798 REM***DOQ NOTHING WHILE MOTHER ENVOYS! 
712 GOTO 7120 


Hmmmm ... we ran the entire program. Here is what happened: 





We will leave it to you to adjust the numbers following @ in lines 610, 620, and 
630 in order to get a ‘birthday card’’ more like the one shown in frame 6. 


9. Our birthday card program has four FOR-NEXT loops, one for each line 
on the edge of the screen. Here is a single FOR-NEXT loop to draw the lines 
across the top and bottom of the screen, at the same time: 


282 REM***PAINT LINES ACROSS TOP AND BOTTOM OF SCREEN 
212 FOR OVER = @ TO 127 

228 SET(OVER,®&) 

230 SET(OVER, 47) 

248 NEXT OVER 


You write a single FOR-NEXT loop to draw the vertical lines at the left and right 
edges of the screen. 


309 REM***PAINT LINES DOWN LEFT AND RIGHT EDGES OF SCREEN 


318 





322 





338 


348 
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FOR DOWN = @ TO 47 
SET(@,DQOWN ) 
SET(127,D0OWN) 

NEXT DOWN 


10. Paint the screen white. 


REM***THIS PROGRAM PAINTS THE SCREEN WHITE 
112 CLS 


282 REM***PAINT THE SCREEN WHITE 
218 FOR OVER = @ TO 127 | 


228 FOR DOWN = @ TO “I Inside Outside 


230 SET (OVER, DOWN) loop 
248 NEXT DOWN 


258 NEXT OVER 


loop 





390 REM***WAIT UNTIL SOMEONE PRESSES 'BREAK' 
318 GOTO 318 


This program paints the screen with vertical stripes, beginning at the left edge. 
Rewrite lines 210-250 so that the screen is painted with horizontal stripes, begin- 
ning at the top. 


218 








228 


N 
w 
Q 





248 
258 

218 FOR DOWN = 9 TO 47 : ; 
22@ FOR OVER = @ TO 127] Inside Outside 
230 SET (OVER, DOWN) loop loop 
248 NEXT OVER 


258 NEXT DOWN 


DOWN begins at 0 (line 210). For DOWN = 0, lines 220-240 paint a stripe 
across the top of the screen (OVER goes from 0 to 127). Then DOWN becomes 1 
(line 250). For DOWN = 1, lines 220-240 paint a stripe across the screen, just 
below the previous stripe. And so on... for DOWN = 2, 3, 4,..., 47. 


11. The SET statement turns on a tiny rectangle of light somewhere on the 
screen. Another statement, called RESET, turns off a tiny rectangle of light, if it 
was on. 


—RESET turns off a tiny rectangle of light (if it was on) somewhere on 
the screen. 
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As with SET, we must tell the TRS-80 where to turn off the tiny rectangle of 
light. 


RESET(64,24) 


‘ 


This far OVER. This far DOWN. 


The following program tells the TRS-80 to blink a tiny rectangle of light on and 
off at OVER “= 64, DOWN = 24 (near the center of the screen): 


18 CLS 

28 SET(64,24) Turn light on and 

32 GOSUB 72 use time delay subroutine. 
40 RESET(64,24) Turn light off and 

of GOSUB, 12 use time delay subroutine. 


6@ GOTO 28 Go around again. 
78 T = 562 


8@ FOR Z = 1 TO T : NEXT Z Time delay. 
9@ RETURN 


Change lines 20 and 40 so that the light blinks on and off at OVER = 32, 
DOWN = 12. 


22 


4B 


blink, blink, blink 


28 SET(32,12) 
4@ RESET(32,12) 





You might want to experiment with the following program. It has several lines 
with multiple statements. 


1@ CLS 

28 INPUT "HOW FAR OVER (@ TO 127)"3 OVER 
3@ INPUT "HOW FAR DOWN (@ TO 47)"; DOWN 
49 SET(OVER,DOWN) : GOSUB 798 

5@ RESET(OVER,DOWN) : GOSUB 728 


66 GOTO 48 


76 T = S8B 
8@ FOR Z = 1 TO T : NEXT Z : RETURN 
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Try some of these values for (OVER, DOWN): 
(0,0) (24,0) (50,0) (0,3) (24,3) (24,4) 


For each value, type RUN and press ENTER. Then enter the values of OVER 
and DOWN, as requested by the computer. The TRS-80 will blink a tiny rec- 
tangle at the place you specified. When you are tired of this blinking nonsense, 
press BREAK and... if you are not foo tired, type RUN again. 


> 


12. Aha! We could have done the first program in the previous frame as 
follows: 


18 CLS 

20 SET(64,24) oe on light and 

32 GOSUB 26 use time delay subroutine. 
4@ CLS Clear entire screen and 

28 USB ne use time delay subroutine. 


68 GOTO 28 


78 T = 588 
88 FOR Z = 1 TO T : NEXT Z 
98 RETURN 


Trouble! To turn off one tiny rectangle of light at (64,24), we clear the entire 
screen! 

That just won’t work for us if we want to blink a light on and off, while 
leaving the rest of the screen unchanged. So we give you the following program, 
which draws a box on the screen, then blinks a light on.and off, inside the box. 
The box stays all the time. 


128 REM***TWINKLE, TWINKLE, LITTLE STAR, INSIDE A BOX 


282 REM***DRAW THE BOX 


218 CLS 

2286 FOR OVER = 59 TO 69 

238 SET(OVER,19) Draw top of box. 
248 SET(OVER, 29) Draw bottom of box. 


259 NEXT OVER 
268 FOR DOWN = 19 TO 29 . 
Lie left side of box. 


Draw right side of box. 


276 SET(59,DOWN) 
286 SET(69,DOWN ) 
298 NEXT DOWN 


Light on. 
Light off. 


390 REM***BLINK 'STAR' IN CENTER OF BOX 
318 SET(64,24) + GOSUB 918 

329 RESET(64,24) : GOSUB 918 

338 GOTO 318 

998 REM***TIME DELAY SUBROUTINE 

918 T = 528 

928 FOR Z = 1 TO T : NEXT Z : RETURN 
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13. OK, it is your turn. Before you proceed, look at ‘‘Starfall’’ in frame 4 and 
also at frame 10. 


Are you back? Yes? Good. Write a program to: 


(a) Paint the entire screen white (frame 10). 
(b) Fill the white sky with random black holes. Use RESET to ‘‘punch black 
holes’’ in the white sky. 


A RUN of your program might look like this: 





Just after painting A little later Much later 
the screen white 


Write your program in the space below: 


198 REM***WHITE SKY, BLACK HOLES 


208 REM***PAINT THE SKY WHITE 


218 CLS We are now using more REM statements so 
228 FOR OVER = @ TO 127 that you can more easily read our programs. 
238 FOR DOWN = @ TO 47 


248 SET(OVER, DOWN ) 
258 NEXT DOWN 
2628 NEXT OVER 





388 REM***TURN ON RANDOM ‘BLACK HOLES‘ 
312 OVER RND(128)-1 

322 DOWN = RND(48)-1 

338 RESET(OVER,DOWN) 

348 GOTO 318 
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14. A mandala is a pattern used in meditation. Usually, a mandala is symmetric 
in some way. A giant snowflake is beautifully symmetric in all directions about 
the center. Snowflakes are great mandalas, but they melt all too soon. We call 
the following program ‘‘Mandala, Ever Changing’’ because it puts an ever- 
changing symmetric pattern on the screen. 


162 REM***MANDALA, EVER CHANGING 
118 CLS 


208 REM***FOUR RANDOM LIGHTS, SYMMETRIC ABOUT THE CENTER 
218 X = RND(64)-1 
228 Y = RND(24)-1 


238 SET(64 +X, 24 + Y) 
248 SET(64 + X, 24 - Y) 
258 SET(64 - X, 24 + Y) 
268 SET(64 - X, 24 - Y) 
308 REM***DELAY, THEN CONTINUE MANDALA (64,24) 


3186 T = 186 
32@ FOR Z = 1 TO T : NEXT Z 
336 GOTO 218 


RUN this program. See this: The computer puts four lights on the screen at a 
time. They are symmetric about the center of the screen (64,24). 
If you don’t see this, increase the time delay. Change line 310 to: 


319 T = 588 
then RUN the program again. 
Live long and prosper! 
15. Lines 210 and 220 compute random values for X and Y. 


(a) What are the possible values for X? From to 








to 








(b) What are the possible values for Y? From 


Lines 230-260 turn on four lights. Assume that X is 32 and Y is 12. Therefore, 
line 230 will turn on a light at (96,36) as follows: 


Because we said that X is 32 and Y is 
12. 














SET(64 + X, 24 + Y) SET(64 + 32, 24 + 12 ) SET(96,36) 
(c) Line 240 will turn on a light at ( : ) 
(d) Line 250 will turn on a light at ( _____} 
(e) Line 260 will turn on a light at ( | 





SS ee ee 
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(a) 0 to 63; (b) 0 to 23 

(c) 96,12 (because 64 + X = 96 and 24-Y = 12) 
(d) 32,36 (because 64 - X = 32 and 24 + Y = 36) 
(e) 32,12 (because 64 - X = 32 and 24- Y = 12) 






(96,12) 







It looks 
like this. 








16. If both X and Y are zero (unlikely, but possible), all four lights will turn on 
at the same place, at (64,24) near the center of the screen. Of course, you will see 
only one light! 

Suppose X is 63 and Y is 23. These are the largest values they may have. 
Where will the lights appear? 


(a) Line 230 will put a light at 
(b) Line 240 will put a light at 
(c) Line 250 will put a light at 
(d) Line 260 will put a light at 


(a) (127,47); (b) (127,1); (©) (1,47); @) (1,1) 


Note that ‘‘Mandala’”’ will never turn on a light at (0,0) or (0,23) or (73,0). The 
values within the SET statements will never be zero. For example: 


268 SET(64 = X, 24 - Y) 


Possible values Possible values 
are | to 64. are 1 to 24. 


Why? We leave that question to you. 
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17. Suppose we start near the center of the screen and . . . meander. Maybe 
left, maybe right, maybe up, maybe down. Everywhere we go, we turn on a light 
to show where we have been. 


198 REM***MEANDER ABOUT THE SCREEN 
1128 CLS 


200 REM***START NEAR THE CENTER OF THE SCREEN 
218 OVER = 64 
228 DOWN = 24 


329 REM***TURN ON LIGHT AT (OVER, DOWN) 
319 SET(OVER, DOWN) 


498 REM***CHANGE OVER & DOWN BY +1, @ OR -1 
418 A = RND(3)-2 

428 OVER = OVER + A 

432 B = RND(3)-2 

442 DOWN = DOWN + B 


588 REM***GO AROUND AGAIN FOR A NEW LITE 
512 GOTO 318 


We ran the program. Here is what happened: 





When you RUN this program, it eventually will stop with the message: ?FC ER- 
ROR IN 310. Read on! 


18. The pattern starts near the middle of the screen at (64,24). 


218 OVER 
228 DOWN 


Line 310 turns on a light at (OVER,DOWN). Then, in lines 410-440, the values 
of OVER and DOWN might be changed slightly. 


(a) In line 410, what are the possible values of RND(3)? 


(b) What are the possible values of A?____ = SCCSCSSC (Remember, 
A = RND(3) - 2) 
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(c) Suppose, in line 410, A is zero (0). What happens to the value of OVER in 


line 420? f= _.’n 
(d) Suppose, in line 410, A is one (1). What happens to the value of OVER in 


line 420? SS es = 
(e) Suppose, in line 410, A is minus one (-1). What happens to the value of 


OVER in line 420? 


(a) 1,2, or 3 

(b) -1,0,or1 (1-2 =-1, 1-1=0, 2-1=1) 
(c) It is not changed: OVER = OVER + 0 

(d) It is increased by 1: OVER = OVER + 1 

(e) It is decreased by 1: OVER = OVER + (-1) 


19. Similarly, the value of DOWN is changed in lines 430 and 440. So OVER 
and DOWN get bigger or less. Eventually: 

OVER might become bigger than 127 or less than 0. 

DOWN might become bigger than 47 or less than 0. 


If any of the above happen, the TRS-80 stops with: 
?FC ERROR IN 318 
Let’s fix that. Add these statements to the program in frame 17: 


423 IF OVER > 127 THEN OVER = OVER - 1 
427 IF OVER < @® THEN OVER = OVER + 1 


In other words, if OVER is too big (greater than 127), reduce it by 1. If OVER is 
too small (less than zero), increase it by 1. 


We fixed OVER. You fix DOWN. 
433 





433 IF DOWN > 47 THEN DOWN = DOWN - 1 
437 IF DOWN < @ THEN DOWN = DOWN + 1 


With the two ‘‘fixes,’’ the program will wander all day! Occasionally, it may 
seem to bounce along the edge of the screen. 
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20. We return to program ‘‘Starfall,’’ from frame 4. Here it is again, with 
something added: the INKEY$ function in line 310. 


ee amin, 


1928 REM***STARFALL, A PROGRAM BY FIREDRAKE THE DRAGON 
118 CLS 


292 REM***TURN ON A RANDOM STAR 
218 OVER = RND(128)-1 

228 DOWN = RND(480-1 

238 SET(OVER,DOWN) 


388 REM***1IF THE A KEY IS NOT PRESSED, GO BACK FOR NEW STAR 
318 IF INKEY$S <> "A" THEN 212 


418 T = 2999 
This time delay is 
about four seconds. 


428 FOR Z = 1 TO T : NEXT Z 
432 GOTO 2198 

RUN it. The screen will begin filling with stars. Press the A key. ‘‘Starfall’’ 
pauses for about four seconds, then continues. Press the A key. ‘‘Starfall’’ 
pauses for about four seconds, then continues. The first two times, the screen 
might look like this: 





| 
489 REM***THIS HAPPENS IF THE "A" KEY IS PRESSED | 
i 
| 





21. The INKEY$ function scans the keyboard. If you press a key while 
INKEY$ is scanning the keyboard, then the value of INKEY$ will be a one- 
character string—the character on the key that you pressed. 


As usual, press BREAK to sfop all this! 
Now, look at line 310 in the previous frame. The statement: 


31@ IF INKEY$S <> "A" THEN 219 
tells the TRS-80: 


—If someone has not pressed the A key on the keyboard, then go to line | 
210. 

—However, if the A key has been pressed, go to the next line number 
following 310. : 


Well, following line 310, we have a time delay. So nothing happens on the screen 
for about four seconds while the TRS-80 counts from 1 to 2,000. After this 
delay, the TRS-80 goes to line 210 (see line 430) and continues putting stars on 
the screen. 
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(a) Rewrite line 310 so that pressing the Z key interrupts the program for about 
four seconds. 


310 
(b) This one is tricky! If you don’t know the answer, guess. Rewrite line 310 so 
that pressing the space bar interrupts the program for about four seconds. 


310 








(a) 319 IF INKEY$S <> "Z" THEN 219 
















(b) 319 IF INKEYS <> " " THEN 218 


Put a space here. 


The vaJue of INKEY$ can be one, and only one, character. For this same reason, 
you cannot use the following: 


The following will not work: 


318 IF INKEY$ = "SPACE" THEN 219 


319 IF INKEYS <> "ENTER" THEN 2128 


22. Experiment. Try this short program, which uses INKEYS. 


18 CLS 

2@ PRINT "YOU PRESSED " INKEYS 
38 T = 188 

4@ FOR Z = 1 TO T : NEXT Z 

58 GOTO 26 










PRESSED 
YOU PRESSED 
YOU PRESSED A 
YOU PRESSED 
YOU PRESSED 2Z 
YOU PRESSED 
YOU PRESSED 7 
YOU PRESSED 
YOU PRESSED 
YOU PRESSED * 
and soon... 


We pressed the key 
We pressed the key 
We pressed the key 


We pressed the [*] key 
(with SHIFT down) 


If we don’t press a key, the TRS-80 prints YOU PRESSED followed by an 
empty space. 
If we do press a key, the TRS-80 tells us which key we pressed. 


(a) Suppose we press the key. What will the TRS-80 print? 
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(b) Suppose we hold the SHIFT down and press the key. What will the 
TRS-80 print? 


(c) Suppose we press the space bar. What will the TRS-80 print? 


(a) You PRESSED / 


(b) You PRESSED + 


(c) You PRESSED but you don’t see the space. 


23. Increase the value of T in line 30 to 2,000 (30 T = 2000); this will give 
about a four-second delay. RUN the program again and follow these instruc- 
tions: 


—Very quickly, press A, then press B. The TRS-80 will probably print 
YOU PRESSED B. 

—Very quickly, press A, then press B, then press C. The TRS-80 will 
probably print YOU PRESSED C. 


The value of INKEY$ will be the /ast key you pressed just a tiny fraction of a 
second before the TRS-80 executed the INKEY$ function in line 20. 


Try these: 


(a) Press two keys at the same time. What happens? 





(b) Hold a key down for awhile. Does it repeat? 





(a) Only one key is printed. 

(b) No. It prints once. To make a key repeat, you have to press it repeatedly. 
Variation. Change line 50 to: 

58 GOTO 18 


24. Here is a way to use almost any key to interrupt ‘‘Starfall,’’ or any other 
program. 














316 IF INKEYS = "" THEN 219 Huh? There is nothing between quotation 


marks—not even a space. 
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Line 310 says: If the value of INKEY$ is ‘‘nothing,’’ then go to line 210. In 
other words, if no key has been pressed since the last time we used INKEY$, 
then go to line 210. 

Each time INKEY$ looks at the keyboard, it first erases its previous value 

.. it is ““empty.’’ Then, if someone has pressed a key, INKEY$ remembers that 

key as its value. If someone has pressed a bunch of keys, INKEY$ remembers the 
last key pressed. 

But, if no key has been pressed, INKEY$ remains ‘‘empty.’’ In this case, 
the condition INKEY$ ’’”’ is true and the TRS-80 goes to line 210. 

However, if someone has pressed a key (almost any key), then the condition 
INKEY$ = ’’”’ is false because the value of INKEY$ will now be the key that 
was pressed. In this case, the TRS-80 moves on to lines 400, 410, etc. 


Follow the arrows: 
No key was pressed. 


318 IF INKEY$ = "" (TRUE >tHen 216 







Someone pressed a key. 


Remember, in line 310, there is nothing between quotation marks. Since we use 
quotation marks to enclose strings, you can think of this (‘‘’’) as an ‘‘empty 
string.’’ 


25. Here again is ‘‘Starfall,’’ using line 310 from the previous frame: 


199 REM***STARFALL, A PROGRAM BY FIREDRAKE THE DRAGON 
118 €LS 





202 REM***TURN ON A RANDOM STAR 
218 OVER = RND(128)-1 

228 DOWN = RND(48)~-1 

238 SET(COVER, DOWN) 


396 REM***IF NO KEY IS PRESSED, GO BACK FOR ANOTHER STAR 
318 IF INKEYS = "" THEN 219 


496 REM***yYOU GET HERE IF A KEY IS PRESSED 
418 T = 2886 

428 FOR Z = 1 TO T : NEXT Z 

438 GOTO 219 


Try it. You can press almost any key to cause the TRS-80 to pause for a few 
seconds. The only keys that don’t do this are BREAK, which stops the TRS-80 


“for good,’’ and SHIFT, which does nothing. However, you can use SHIFT with 
another key to cause the TRS-80 to pause. Experiment! 
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Now replace lines 400-430 with the following: 


488 REM*** 
418 IF INKEYS = "" THEN 418 ELSE 218 


RUN the modified program. 


—Press any key (except BREAK or SHIFT). The TRS-80 will pause 
while you stargaze. 

—Stargaze for as long as you wish. When you are ready for more stars, 
press any key (except BREAK or SHIFT). The TRS-80 will continue 
putting stars on the screen. 


Do the above as often as you wish. Then, read on... . We will explain IF... 
THEN ...ELSE.... 


26. The statement: | 
418 IF INKEYS = "" THEN 419 ELSE 219 

tells the computer: If INKEY$ is empty (no key has been pressed), then go to line 

410. However, if INKEY$ is not empty (a key has been pressed), then go to line 


210. 
Follow the arrows: 


To line 210 


418 IF INKEY$ = "" [TRUE> tren 41B ELSE 219) 


This happens 
if the condition 
is FALSE 


As long as you don’t press a key, the first part of line 410 will go around and 
around and around. 


418 IN INKEY$S = "" THEN 419 Around and around around... 
if no key is pressed. 
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But, if you do press a key, the computer moves on to the ELSE part of the state- 
ment. 







{ ELSE 219 Aha! Someone pressed a key. Back to 


line 210 for more stars. fa) 


Lines 310 and 410 work together to let us stop and restart ‘‘Starfall.’”’ 






318 IF INKEYS$ "" THEN 2198 


418 IF INKEYS "" THEN 418 ELSE 219 





We will use this method frequently . . . 8O Spend some time learning it. 


27. The following ‘‘Reaction Time’’ program uses INKEY$ several times. 
188 REM***REACTION TIME PROGRAM 


288 REM*** INSTRUCTIONS TO THE PLAYER 

2198 CLS 

228 PRINT "HOW FAST ARE YOU? I WILL CLEAR THE SCREEN FOR A" 
239 PRINT "LITTLE WHILE, THEN COUNT NEAR THE MIDDLE OF THE" 
249 PRINT "SCREEN. WHEN I START COUNTING, PRESS THE SPACE BAR" 
25@ PRINT "AND I WILL STOP. STOP ME QUICKLY, IF YOU CAN!" 

26@ PRINT : PRINT "WHEN YOU ARE READY, PRESS ANY KEY." 

278 IF INKEYS = "" THEN 272 


322 REM***CLEAR THE SCREEN FOR A RANDOM TIME, T 
318 CLS 

328 T = RND( 2080) 

33 FOR Z = 1 TO T : NEXT Z 


488 REM***START COUNTING, SPACE BAR STOPS IT. 
418 x =1 

428 PRINT 0472,xX 

43@ IF INKEYS <>" " THEN X = X + 1 +: GOTO 428 


502 REM***PLAYER PRESSED SPACE BAR. PAUSE, THEN PLAY AGAIN. 
518 T = 2998 

52@ FOR Z = 1 TO T : NEXT Z 

53@ GOTO 219 


The next few frames refer to the above program. But, before you do them, 
first enjoy the game! Play it several times. An average of 10 is fast— 
congratulations! If your average is more than 20, well . . . maybe you are think- 
ing about something else. 

Hmmmm ... we played the game several times and discovered a way to 
cheat. We can stop the computer with a count of 1 every time! We can do this, 
not because we are that fast, but because there is a flaw in the program. 
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Beat the computer! Figure out how to stop the computer at 1 every time, 
just by pressing the space bar. Later, we will share our discovery with you, then 
show you how to fix the ‘‘bug’’ in the program so that this kind of cheating 
can’t happen. 


IMPORTANT NOTICE! This computer error is not the fault of the computer. 
Rather, as are almost all computer errors, it is the fault of the programmer! This 
error almost escaped our notice—imagine the letters we might have received if we 
had missed it! 


28. Look at line 270: 
278 IF INKEYS = "" THEN 278 


(a) If no one presses a key, what happens? 


(b) If someone presses a key, what happens? 


(a) Line 270 repeats itself. If no key is pressed, the value of INKEYS$ is the 
empty string. Therefore, INKEY$ = ’’”? is true, and the TRS-80 goes to 
line 270 again. Around and around and around .. . until someone presses a 
key. 

(b) The TRS-80 moves on to the lines following line 270. These are lines 300, 
310, 320, etc. 


29. OK, the screen goes blank for a random time, which depends on the value 
at T in line 320. Then the computer starts counting—putting numbers one after 
the other in the center of the screen. This is controlled by lines 410-430. 


$18 xX = 1 
428 PRINT 8478, X 
436 IF INKEYS <> "\" THEN X = X + 1 : GOTO 428 


space 


(a) What is the first number printed? 
(b) If the space bar is not pressed, what happens (line 430)? 


(c) If the space bar is pressed, what happens? 
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(a) 1 (because line 410 says X = 1, which is printed by line 420). 

(b) The computer increases the value of X by 1 and then goes to line 420, 
where the new value is printed. 

(c) Everything following THEN in line 430 is not done. The computer moves 
on to the lines following line 430. After a time delay of a few seconds, the 
game starts again. 


30. Have you figured out how to beat our ‘‘Reaction Time’’ program and 
always get a score of 1? 

Here’s how. When the TRS-80 prints WHEN YOU ARE READY, PRESS 
ANY KEY, you press the space bar twice. Or, press any key, then press the space 
bar immediately, before the computer starts counting near the middle of the 
screen. 

Fix it like this—add the following line to the program: 


348 X$ = INKEYS 


This will clear out the value of INKEY$ just before the computer begins counting 
in lines 410 through 430. Line 340 will be done so fast that it is very unlikely that ~ 
anyone can press the space bar while the computer is going from line 340 to line 
410. 

Before you begin reacting to Chapter 7, try our friendly Self-Test, which 
follows. 


SELF-TEST 


Try this Self-Test, so you can evaluate how much you have learned in the 
chapter. 


1. Which of the following are not legal statements? 
(a) SET(47,52) (b) SET(-38,2) 


(c) SET(199,48) (d) SE&T(127,32) 


2. Sketch the display for this program. 


198 CLS 

118 SET(24,5) +: SET(12,18) 
128 SET(12,5) : SET(24,18) 
138 GOTO 138 
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3. Complete this program to light stars in the upper left quarter of the screen 
only. 


198 CLS 


118 OVER RND( +=1 


128 DOWN RND( I= 1 





tangle will be formed. 
OVER 68, DOWN 128 OVER 82, DOWN 18 


OVER 88, DOWN 28 OVER 68, DOWN 28 


Put stars 
130 (OVER, DOWN) here only 
148 GOTO 118 ; \ 
4. | Write a program to connect the following points on the screen so that a rec- 


i 
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ee ee SD 


5. Examine the following program and answer the questions that follow it. 


188 CLS 

118 DOWN = 18 

12@ FOR OVER = 18 TO 298 

138 SET(OVER, DOWN ) 

148 NEXT OVER 

15@ A = RND(11)-1 

168 FOR w = 1 TO 18 : NEXT W 
178 RESET(A + 18,;DOWN) 

188 FOR W = 1 TO 18 : NEXT W 
198 SET(A + 18,DOWN) 

288 GOTO 158 


(a) Describe the result of executing lines 120-140. 





me 


(b) What is the range of values for A? ____ to ______ 
(c) Will the point that is RESET in line 170 be on the original line that 


was drawn? 





(d) Describe the result of executing lines 150-190. 
Re a ee ee 


6. Here is a portion of a program. 


288 CLS 
218 OVER = RND(128)-1 
22@ DOWN = RND(48)-1 


238 SET(OVER,DOWN) 

248 IF INKEYS <> "S" THEN 218 

258 GOTO 2088 

Suppose we enter and RUN this program. 


(a) What happens if we don’t press the S key? 





nnn E EEE EEE EEE 


(b) What happens if we press the S key? 





ee 





a 
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7. Refer back to the ‘‘Reaction Time’’ program in frame 27. We are going to 
shorten the program and let you complete some lines to do ten reaction 
tests at a time. We have left out the instructions since they are the same. 
Remember, though, to use the space bar to stop the count. 


218 
228 
238 


380 
310 
328 
338 


419 
428 
438 


518 


529 


cLsS 
PRINT "WHEN YOU ARE READY, PRESS ANY KEY." 
IF INKEYS = "" THEN 238 

FOR N = TO 

cLS 


T = RND(2669) 
FOR Z=1TOT 3: 


x= 1 
PRINT 0472,X 


IF INKEY$ <> " " 


FOR Z = 1 TO 2888 


NEXT Z 


THEN X = X + 1 : GOTO 428 


s NEXT Z 







Please complete 
the FOR-NEXT loop. 





8. It would be helpful to have a measure of reaction times for the ten tries in 
the program of frame 7. Add to that program some lines to: 


—Add the reaction time for the tests. 
—Compute and print the average reaction time for the 10 tests. 


Remember to initialize the sum before the FOR-NEXT loop. Compute and 
print the average after the FOR-NEXT loop. Show the lines (with line 
numbers) that you would add to the program of question 7. 


9. Study this program and figure out what would happen if you entered it into 
the computer and ran it. Then answer the questions. 


182 
112 
126 
132 


228 
218 


398 
316 


402 
418 
428 


528 


—_— Cer CC . eee nn 


REM***SCRIBBLE ON THE SCREEN 


CLS 
OVER = 64 
DOWN = 24 


REM***TURN ON A LIGHT AT OVER,DOWN 


SET(OVER, DOWN) 


REM***wAIT FOR SOMEONE TO PRESS A KEY 


K$ = INKEYS : IF 


REM***IF KEY WAS 
IF K$ = "R" THEN 
IF K$ = "L" THEN 


REM***IF KEY WAS 
IF KS = "D" THEN 
IF KS = “U" THEN 


REM***GO BACK TO 
GOTO 218 


K$ = 


R OR 
OVER 
OVER 


D OR 
DOWN 
DOWN 


TURN 


"" THEN 318 


L, CHANGE OVER 
= OVER + 1 
= OVER - 1 
» CHANGE DOWN 
DOWN + 1 
DOWN - 1 


bone c 


ON A LIGHT 







re na EE AA EE CE 
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(a) After you type RUN and press ENTER, what happens first (lines 
100-310? 
(b) You press the R key several times. What happens? 








(c) You press the U key several times. What happens? 





(d) You press the L key several times. What happens? 





(e) You press the D key several times. What happens? 





(f) You press the key other than R, L, U, or D. What happens? 





Answers to Self-Test 
The numbers in parentheses refer to the frames in the chapter where the topic is 
discussed. 
1. (a) seT(47,52) (b) SET(-38,8) (frame 2) 


(frames 1-3) 





3. 118 OVER = RND(64)-1r (gives 0-63) 


128 DOWN = RND(24)-1 (gives 0-23) 
138 SET(OVER,DOWN ) 


(frames 4, 5) 


4. 188 REM***CONNECT (60,18), (88,18), (88,28), (68,28) 
119 CLS 


298 REM***DRAW HORIZONTAL LINES 
218 DOWN = 186 

228 FOR OVER = 68 TO 8 

232 SET (OVER, DOWN) 

242 SET(OVER,DOWN + 18) 

258 NEXT OVER 


398 REM***DRAW VERTICAL LINES 
318 OVER = 68 

328 FOR DOWN = 18 TO 298 

338 SET (OVER, DOWN ) 

348 SET(OVER + 28,DOWN) 

359 NEXT DOWN 


4928 REM***wAIT UNTIL SOMEONE PRESSES ‘BREAK' 
418 GOTO 412 (frames 6-9) 
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5. (a) 
(b) 
(c) 
(d) 


6. (a) 


(b) 





11 points are set at OVER = 10 through 20 at 10 spaces down. 
0 through 10 

yes 

a random point on the bar of light goes out and then reappears. 
(frames 11-13) 


The screen will slowly fill with random stars. Lines 210-240 will be 
executed again and again and again. 

The computer will execute line 250, which sends it to line 200. The 
screen will be cleared and then start filling with stars until someone 
presses the S key again. 


Note: Lines 240 and 250 could be replaced with a single IF .. . THEN 
. . . ELSE, as follows: 


246 IF INKEY$ <> "S" THEN 219 ELSE 229 


(frames 4, 20, 21) 


7. 300 FORN = 1T0 10 
520 NEXT N (frame 27) 


8. Our changes: 


242 
448 
532 
548 


9. (a) 


SUM = 2 
SUM = SUM + x 

AV = SUM/1B 

PRINT "YOUR AVERAGE IS" +: AV 

The screen is cleared, then a single ‘‘blip’’ of light comes on at 
(64,24), near the center of the screen. Then the computer waits for 
someone to press a key (line 310). 

The computer ‘‘paints’’ a line to the right, turning on one blip for 
each time you press R. 

The computer ‘‘paints’’ a line upward, turning on one blip for each 
time you press U. 

The computer paints a line to the left, turning on one blip for each 
time you press L. 

The computer paints a line downward, turning on one blip for each 
time you press D. 

Nothing. Only the R, U, L, and D keys control the computer. 


Note; Following (b), (c), (d), and (e) above, the screen might look 
something like this: 





(frames 17-19, 21-24) Press U 

















CHAPTER SEVEN 


Entering and Displaying Data 








In this chapter, you will learn some new ways to enter data and some new ways 
to display information on the video display. We will explore different methods of 
assigning values to variables. These new techniques will provide you with more 
versatility and freedom and improve your programming capabilities. 

When you have finished this chapter, you will be able to: 


¢ input data from a READ statement; 

use a DATA statement to provide information to be READ as needed 
in your program; 

control the data READ statement with a FOR-NEXT loop; 

use the TAB function to control output displays; 

use strings in READ and DATA statements; 

mix strings and numerics in READ and DATA statements; 

use the RESTORE statement to change the data pointer to the begin- 
ning of a DATA list; 

use the POS(X) statement to provide a specific number of spaces be- 
tween bits of information. 


1. You have been using LET and INPUT statements to assign values to 
variables. Another method that can be used combines the READ and DATA 
statements. The READ statement tells the computer to read a value from a data 
list. The DATA statement provides the list of data values. The two are always 
used together. 


118 PRINT A; 
126 GOTO 189 
138 DATA 99,33,88,-44,182.3,75,29.95,99999 


The statement 100 READ A tells the computer to read one value from the data 
list (given in line 130) and assign that value to the variable A. Every time line 100 


is executed, the computer assigns the next value in the data list to A until all the 
data in the list have been used. The computer uses a pointer to keep track of the 
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a  ——— 





data item that is to be read. Each time an item of data is used, the pointer moves 
on to the next item. 


This is how the screen looks when you run the program: 





99 33 88 -44 192.3 75 29.95 99999 
?00 ERROR IN 1886 


The ERROR statement (70D ERROR IN 100) means ‘‘out of data in line 100.’’ 
(a) How many values are in the DATA statement? 

(b) Were they all printed? 

(c) Why do you suppose the RUN shows an OD error? 








(a) 8; (b) yes; (c) The end of the data list was reached. The data pointer does not 
have a new value to point to. 


2. Examine the format of the DATA statement in line 130. Commas are used 
to separate the data items in the list. 


138 DATA 99,33,88,-44,182.3,75,29.95,99999 
















No comma at 
the beginning. 


Commas between 
items. 


No comma at 
the end. 





DATA statements may contain integers, decimal fractions, and numbers in 
floating point notation. Do not use any of the expressions contained in the 
following example. Each item is i/legal in the form used. 






148 DATA A,B$,5+4,RND( 19) Variables, arithmetic operators, and functions are 


not to be used in the form shown. 
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Write a DATA statement using these values: 


12.6 123.45 123 
-22 3105 .045 


138 DATA 


138 DATA 12.6,~-22,.123.45,3185, .123, .845 


Your line number and order of the values may differ. You may also have spaces 
that we do not use. Remember, do not use commas in long numbers such as 
3105. Why not? Because the computer will treat 3,105 as two numbers, 3 and 
105. 


3. Study the following DATA statement and find the errors. 
138 DATA, 12,3,-283;14,158,-.84, 


The errors are: 


The errors are: comma following the word DATA 
semicolon between -20 and 14 
comma at end of statement 


4. The PRINT statement used in frame 1 grouped the numbers very tightly. 
The TRS-80 follows a predetermined format in printing numeric values. One 
space is reserved at the front of a number for its sign (+ or -). However, if a 
number is positive, the + sign is not printed; instead a space is printed. Then the 
digits and a decimal point (if one is required) are printed. Last of all, a trailing 
space is provided. Take another look at the output of the run in frame 1. 







RUN 
99 .33 88-44, 192.3 , 75, 29.95, 99999 
Space 
for 
sign One trailing space that you 


Trailing space and space for sign between each pair of 
numbers (sign space filled for negative numbers) 
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ep 


For the DATA statement below, show the spacing of the numbers when a pro- 
gram containing this DATA statement is run. 


13@ DATA 12.6,-22,123.45,3185,.123,-.845 


12.6, -22 123.45 3105 123, -.045 


5.  Let’s eliminate the out-of-data error in the program in frame 1 by making 
use of the last data item (99999) as a flag* that tells the computer that it is at the 
end of the data list. Instead of displaying the data, let’s turn our computer into 


an expensive adding machine by changing lines 100 and 130. 
198 CLS : T= BB 

118 READ A 

12@ IF A = 99999 THEN 1628 

136 T = T + At PRINT "TOTAL NOW = " 3 T 

148 GOTO 118 

158 DATA 99,33,88,-44,182.3,75,29.95,99999 

16@ END 


The computer now reads each data item and adds it to the sum of the previous 
values. It then prints the new sum. Note how line 120 avoids the addition of 
99999 to the sum. 


(a) How many data items will be read? 
(b) How many data items will be added? 


(c) How many times is line 140 executed? 


(a) 8; (b) 7; (c) 7 


6. If lines 130 and 120 were interchanged in the program in frame 5: 


128 T = T + A: PRINT "TOTAL NOW = 3 T 
139 IF A = 99999 THEN 169 


(a) How many data items would be added? 


(b) How many times would line 140 be executed? 


(a) 8; (b) still only 7 


*We covered the flag in Chapter 5, frames 16 and 17. 
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7. More than one item may be read from a data list by a single READ state- 
ment. Commas are then used to separate the items to be read. 


192 CLS 

119 READ A,B 

128 IF B = 99999 THEN 162 

132 T= A +8: PRINT A "4+" B "=" T 

149 GOTO 118 

152 DATA 99,33,88,-44,182.3,75,29.95,99999 
168 END 


Notice that the variable B is tested in line 120 rather than A since the data are 
read in pairs (the last pair will assign 29.95 to A and 99999 to B). 


(a) How many pairs of data will be READ? 


(b) How many sums will be calculated? 


(a) 4 pairs 
(b) 3 sums (The last pair will not be added because of line 120.) 


8. Here is another way to write the program in frame.7: 


19% CLS 
119 READ A,B 
126 T = A+B: PRINT A "4+" B "=" T 


138 IF B <> 99999 THEN 119 
148 DATA 99,33,88,-44,182.3,75,29.95,99999 
15@ END 


(a) How many pairs of data will be READ? 


(b) How many sums will be calculated and printed? 


(a) 4 pairs; (b) 4 sums 


9. Remember the ‘‘Starfall’’ program by Firedrake the Dragon in Chapter 6? 
Draco, another dragon, has modified Firedrake’s program to use the READ and 
DATA statements to light up the stars. 


128 REM***STARFALL, A PROGRAM BY FIREDRAKE THE DRAGON 
118 CLS 


208 REM***DRACO'S MODIFICATION 

21@ FOR X = 1 TO 14 

228 READ OVER,DOWN 

238 SET(OVER,DOWN) 

248 NEXT X 

258 DATA 27,22,29,24,27,25,24,23,40,16,44,15,45,19 
268 DATA 39,23,39,26,39,29,41,31,53,30,64,28,69,29 


322 GOTO 392 
319 REM***THIS IS THE END 
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On December 1, 1940, Draco was gazing northward into a clear sky from a 
spot near his cave in Kelgarnth. He saw a similar pattern of stars and gave the 
shape a name. 

Draw a sketch of the pattern displayed on the screen when the above pro- 
gram is run. Then connect the points (‘‘dot-to-dot’’) in the order in which they 
were read from the DATA statement. With a little imagination you will know 
what our dragon named this constellation. 


What was the name? 


The name was DRACO. 


10. This program uses a FOR-NEXT statement to READ in and PRINT the 
data items—three at a time. We do not need a test for the last item since the 
FOR-NEXT loop runs a definite number of times. Complete the statement in line 
110 and write out the printed format of the run on the lines that follow. 


188 CLS 

1128 FOR 

128 READ A,B,C 

138 PRINT A;B;C 

148 NEXT X 

158 DATA 6,-41,2.3E+88,55.3,12345,16,.82,1.5,-43 











2.3E + 08 is a floating 
point number, described in 
Appendix C. 
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RUN 


118 FOR X = 1 TO 3 





RUN 

6 -41 2.3E+98 
55.3 12345 16 
~82 1.5 —-43 

READY 

> 


11. Change line 130 to: 
13@ PRINT A,B,C 


Show the output of the modified program. Don’t show the READY, prompt, 
and cursor. 


RUN 





6 -41 2.3E6+88 
55.3 12345 16 
+82 1.5 -43 
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12. The printed output of the program in frame 10 may be displayed in a more 
organized way by using the TRS-80 TAB function. This function works almost 
like the TABs on an ordinary typewriter, allowing you to indent a desired 
number of spaces in from the left margin. It is used in PRINT statements. Study 
the format of the TAB function in the following PRINT statement: 


138 PRINT TAB(S5) A TAB(28) B- TAB(35) Cc 


The values in parentheses tell the computer the position (on the line being 
printed) where the value of the variable is to be printed. These values in paren- 
theses may be numbers or numerical expressions. 

If line 130 above were executed in a program, which value would be printed 


on the left? === SCSSSCSSC( How far in would it be indented? 


The value of A would be printed on the left, 5 spaces in from the left margin. 
Remember, though, that if the value of A is a positive number or zero, the 
printed value will begin with a space. If the value of A is negative, the printed 
value will begin with a minus sign (-). For example: 


23 


A 


A = -23 -,2,3 


13. The number of spaces in a TAB function may range from 0 to 255. 
Remember, though, that one line on the screen has only 64 printing positions 
(Chapter 4, frame 14). Usually, we use only 0 through 63 as the number of 
spaces in a TAB function. 


—TAB(0) is the left edge of a line on the screen. 
—TAB(31) is about the middle of a line on the screen. 
—TAB(63) is the right edge of a line on the screen. 


Hmmm... what happens if we use a number bigger than 64 in a TAB function? 
Well, something strange happens. The computer will divide the number by 64, ig- 
nore the quotient, and use the remainder as the number of spaces. Huh? OK, 
suppose you try to TAB(100): 


1 
64 | 100 
64 

36 The TRS-80 will TAB(36). 


—TAB(64) is the same as TAB(0). 
—TAB(127) is the same as TAB(63). 
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—TAB(128) is the same as TAB(0). 
—TAB(255) is the same as TAB(63). 


Let’s experiment. Use this short program on your TRS-80 to learn more 
about TAB. 


19 CLS 

28 INPUT "HOW MANY SPACES FOR TAB(@ TO 255)"; S 
3@ CLS 

4@ PRINT TAB(S) "*"; 

5@ FOR Z = 1 TO 1888: NEXT Z 

6@ GOTO 18 


14. Another way to position things on the screen is to use the PRINT @ state- 
ment, which we introduced in Chapter 4 (frames 14 and 15). Remember, the 
screen has 1,024 printing positions numbered from 0 (top left) to 1,023 (bottom 
right). These positions are arranged in 16 lines, each with 64 printing positions, 





as follows: 
Line Positions 
1 0-63 
2 64-127 
3 128-191 
4 192-255 
5 256-319 
6 320-383 
7 384-447 
8 448-511 
9 §12-575 
10 576-639 
11 640-703 
12 704-767 
13 768-831 
14 832-895 
15 896-959 
16 960-1023 


The program shown here will print an X on the first line, and the second 
line of the display tells where the X is located. 


198 CLS 
119 PRINT @31,"x" 
128 PRINT @64,"X IS NEAR THE CENTER OF THE FIRST LINE” 


Complete this program so that an X will be placed near the center of line 8. 


182 CLS 
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119 PRINT @479,"x" (The number should be near 448 + 31 or 479.) 


15. 


The value used following the PRINT@ can be used to ‘‘position’’ printed 


information anywhere on the screen. The value can even be an arithmetic expres- 
sion such as X*55, Y + 32, etc. 


128 
119 
129 
132 
148 
158 


cLS 
FOR X = 1 TO 3 

READ A,B,C 

PRINT @X*64, A,B,C 

NEXT X 

DATA 1.13,2,-.96,5E-88,117,.83,1.8,-3.2,99999 


Line 130 tells where the information to be displayed will be shown on the screen. 
The commas between A, B, C provide for the spacing between values. 


(a) 


(b) 


(c) 


When the FOR-NEXT loop is executed for the first time, what is the value 


of X*64? ae 
When the FOR-NEXT loop is executed the second time, will the values 
from the data list be printed on the same line? 


Show approximately where the data will appear on the screen as the entire 
program is executed: 


> &Y WN 





(a) 64; (b) no, the next line down 


(c) 


_ 


> Ww WN 
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16. DATA statements may contain strings, and READ statements will read 
them providing the correct format is used. The variable in the READ must con- 
tain the usual $ sign, and the data strings must be in quotes if they contain com- 
mas, colons, or leading blank spaces. 

18@ CLS 

118 FOR X = 1 TO 4 

126 READ A$ 

132 PRINT AS; 

14@ NEXT X 

158 DATA "READ ", "DATA ", "AND ", "PRINT" 

Notice that blank spaces are provided within the quotes of the data items for 
proper spacing in the PRINT statement. 


Complete the following: 


(a) String data items in a DATA statement sometimes must be in 


(b) String variables in a READ statement are followed by what symbol? 


(a) quotation marks; (b) $ (dollar sign) 


17. Trailing spaces in DATA statements will cause a blank space to be printed 
for all except the last item on the line. Change line 150 of the program of frame 
16 to: 


158 DATA READ ,DATA ,AND ,PRINT 


Do the blank spaces show up when run? 


Yes. Trailing spaces work OK, but leading spaces do not unless enclosed in 
quotation marks. 


18. The spaces provided in the DATA items in frame 16 for the print format 
can be done in the PRINT statement itself. Then quotation marks and spaces in 
the DATA statement may be omitted. Alter the program in frame 16 as shown in 
the two following lines. Then run the program again. 


132 PRINT A$;" "; 
158 DATA READ,DATA,AND,PRINT 


Did the printed results look the same as frame 17? 











172 TRS-80 BASIC 


19. More than one READ statement may be used in the same program. All of 
these READ statements use the same data list. An item of data is assigned to a 
READ variable in the order that the computer executes the READ statements. 


198 CLS 

119 FOR X = 1 TO 3 

128 READ A,B 

138 C=A+B 

148 READ D 

158 E = c*D 

168 PRINT C,E 

178 NEXT X 

186 DATA 1,2,3,4,5,6,7,8,9 


Show the printed output: 


Printed output: 9 
9 84 
15 135 


20. DATA and READ statements may use mixed numeric and string data. You 
should experiment to find out when quotation marks are needed when using data 
strings. The following program points this out: 





192 CLS 

118 READ A$ 

128 PRINT A$ 

138 READ B$,C,D$,E$ 

149 PRINT BS$;C;D$;E$ 

158 DATA JOHN IS 8 YEARS OLD.,IN,2,YEARS HE WILL BE 
168 DATA 18, 









Data strings may spill over to a second line. Be 
sure to include the word ‘‘DATA”’ at the start 
of the second line. 










(a) Show the display when the above program is executed. 








(b) Change line 160 (using quotation marks) so that the correct spacing will be 
used in the printout. 


168 DATA 
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(a) JOHN IS 8 YEARS OLD. 
IN 2 YEARS HE WILL BE]@. 


(b) 16@ DATA "18." 


21. Using the program in frame 20, show what each variable contains after the 
program is RUN. 

















(a) A$ = 
(b) BS = 
(c) D$ = 
(d) E$ = 
(e) C= 





(a) AS = JOHN IS 8 YEARS OLD. 
(b) Bs = IN 

(c) Ds = YEARS HE WILL BE 

(d) es = 19. oR " 19." 

(e) c=e2 


22. Study this program. Then answer the questions below. Finally, RUN the 
program to verify your answers before looking at ours. 


192 CLS 

118 FOR xX = 1 TO 6 

129 READ A,B 

139 PRINT A;3"+5 = "3 : INPUT C 

142 IF C = B PRINT "CORRECT” : GOTO 188 
158 IF C <> B PRINT "TRY AGAIN" 

168 FOR W = 1 TO S@@ : NEXT W 

178 CLS : GOTO 138 

182 FOR W = 1 TO 589 : NEXT W 

192 cLs 

208 NEXT X 

218 GOTO 119 

228 DATA 8,13,12,17,23,28,27,32,119,124,225,230 


At line 210, the program attempts to repeat. 


(a) How many different problems are printed? 
(b) Why wouldn’t the program repeat when line 210 was executed? 
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(a) 6 
(b) The data had all been used—one pair of values for each time through the 
loop. The computer then displayed ‘‘?0D ERROR IN 120. 


23. After all the data items of a list have been used, the data pointer may be 
moved to the beginning of the list by using the RESTORE statement. This allows 
you to use all the data in the list again. Each time a program executes a 
RESTORE statement, the pointer moves back to the beginning of a list. 

Add this line to the program in frame 17: 


285 RESTORE 
Now run the program again. 


(a) Are the problems repeated? 


(b) How many problems are given each time through the FOR-NEXT loop 
(lines 110-200)? 


When will the program stop? 





(b) 6 
(c) Only when you press the BREAK key or when you turn the computer off. 


24. Study the program below. Then show the output that will be displayed. 


198 CLS 

118 FOR X = 170 4 
128 READ A 

138 PRINT A; 

148 RESTORE 

15@ NEXT X 

168 DATA 11,22,33,44 








11 11 21 «11 (The data pointer is moved to the 
beginning of the line each time 
a data item is printed. Hence, 
only the first item is displayed.) 
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a 


25. It’s time for Draco and the dragon constellation again. We lit Draco’s stars 
in frame 9. Here’s the old program with the RESTORE statement and a few 
other additions: 


198 REM***STARFALL - ORIGINALLY BY FIREDRAKE 
118 CLS 


288 REM***DRACO MODIFIES AGAIN 
218 FOR X = 1 TO 14 

228 READ OVER,DOWN 

238 SET (OVER, DOWN ) 

248 NEXT X 

2528 PRINT @354,"DRACO"; 

268 FOR W = 1 TO 28@ : NEXT W 


3@2 REM***RESTORE DATA AND RESET STARS 
318 RESTORE 

32@ FOR X = 1 TO 14 

33g READ OVER, DOWN 

348 RESET (OVER, DOWN ) 

352 NEXT X 

368 FOR W = 1 TO 18 : NEXT W 


4828 REM***RESTORE AND START OVER 
4128 RESTORE 
426 GOTO 218 


588 REM***DATA LIST FOR STARS 

518 DATA 27,22,29,24,27,25,24,23,48,16,44,15,45,19 

528 DATA 39,23,39,26,39,29,41,31,53,38,64,28,69,29 

(a) Describe how the display resulting from a run of this program differs from 
the display in frame 9. 











(b) How many times will the data list be read before line 360 is executed? 





(a) The stars displayed in this program blink on and off. In frame 9, the stars 
stayed on. 
(b) twice (once to SET the points and once to RESET the points) 


26. Instead of resetting each individual star, we could have made the pro- 
gram in frame 25 much shorter by taking advantage of the CLS statement 
in line 110. All of lines 320-420 could have been eliminated by a simple 
GOTO 110 statement. Rewrite the program so that this is done. 
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This is how we did it. 





188 REM***STARFALL 
118 CLS : FOR W = 1 TO 18 


288 REM***DRACO MODIFIES AGAIN 
218 FOR X = 170 14 

228 READ OVER,DOWN 

238 SET(OVER,DOWN ) 

248 NEXT X 

258 PRINT 2354,"DRACO"; 

268 FOR W = 1 TO 288 : NEXT W 
278 RESTORE : GOTO 118 


27. One more PRINT feature should be considered. It reveals where the cursor 
is located on a given line. Remember, the positions on a line are numbered from 
0 through 63. The format for our new position locator is: 





POS(X) : 

















POS for 
position 


X is a ‘‘dummy argument.” 
It is needed and may be any numerical 
expression. 







POS(X) can be used effectively with the TAB function. Take a look at these two 
lines: 


188 CLS 
118 PRINT TAB(28)P0S(@) 


When these two lines are executed, the number 20 will be printed at screen posi- 
tion 20. (Actually the 2 would be printed at position 21 and the zero at position 
22 due to the leading space inserted to accommodate the sign of the number.) 


__ OO eSSEESSSSSSSSSSSFSSSMMMMMFmmmMhhFshshFeSeSe 
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26 
Position Position 
20 22 
If the statements below were executed, _____ would be printed at posi- 
tion 
18@ CLS 


118 PRINT TAB(52)P0S(8) 





52 would be printed at position 52 (or 53 and 54 if you want to be technical) 


28. POS(X) can be used to provide spacing as desired on a given line. Suppose 
you want to space four words so that there were three blanks between the end of 
each word and the start of the next word. 

198 PRINT "HERE" TAB(POS(@)+3) "ARE" TAB(POS(8)+3); 

118 PRINT "FOUR" TAB(POS(8)+3) "WORDS" 

If those two lines are executed, you will see: 

FOUR WORDS 


HERE ARE 











Three spaces 
between words 


(a) Alter line 100 so that there will be two spaces between the words ‘SHERE”’ 
and ‘‘ARE.”’ 


198 





(b) Alter line 110 so that there will be four spaces between the words ‘‘FOUR’’ 
and ‘‘WORDS.”’ 


116 





(c) Show the placement of the words on the screen using lines 100 and 110 
from (a) and (b). 
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(a) 188 PRINT "HERE" TAB(POS(@)+2) "ARE" TAB(POS(2)+3)3 

(b) 119 PRINT "FOUR" TAB(POS()+4) "WORDS" 

() HERE. -AREW-FQUBAL «i -wORBS 
012345678 24 


29. Now let’s try it using PRINT @ instead of PRINT. This should place the 
first word wherever is desired. 


182 CLS 
118 PRINT @196,"MOVE" TAB(POS(9)+3) "IT" TAB(POS(@)+3)° "IN" 


Show the approximate placement of the words on the screen. 


Eime 3!) |), cnc jee Se ee eke Ss ee Skee 
Detivey aes Ye eet eects Sop anes 2 ce a ee eee eh 
ines! Wl ees ee at Se os ee ee 
Line 4 9 Sa a Te EIN cin) 
Position 
192 


30. We could also use the TAB function to move the words in from the left 
margin. 


182 CLS 
11@ PRINT TAB(6) "MOVE" TAB(POS(@)+3) "IN" TAB(POS(@)+3) "SIX" 


(a) The words would be printed on which line (1, 2, or 3)? 
(b) The ‘‘M”’ of ‘‘“MOVE”’ would be at what position (0, 1, 2, 3, 4, 5, 6, or 7)? 








(a) 1; (b) 6 


31. We do not have to use a zero in POS(O). The argument may be any 
numeric expression. 


188 CLS : INPUT "N = " 3; N 

11@ CLS : AS = "DOG" 

128 FOR X = 1 TON 

132 PRINT TAB (POS(3)+5) A$; 
149 FOR W = 1 TO 188 : NEXT Ww 
158 NEXT x 


If the above program is run, the DOG will move across the screen. Since it has 
been snowing, he will leave his imprint as he goes. Try varying N from 1 to 10. 





ENTERING AND DISPLAYING DATA 179 





(a) On which line does the dog appear? __ 
(b) For what values of N will the dog move on to the second line? 


(a) first; (b) 9 and 10 


32. Now for the GRAND FINALE! It’s time for the annual ‘‘Frog Jumping 
Contest.’’ Your frog will make giant leaps according to your input, J. The pro- 
gram counts the number of jumps for the frog to get off the screen. It’s a wet 
day—so the frog leaves his imprint in the mud. 


192 CLS 
118 AS = "FROG" 
128 INPUT "JUMP = " 3; J 


132 P=3: C= 8 

149 CLS : PRINT A$; 

158 FOR X = 1 TO 588 : NEXT X 

168 IF P > = 6@ GOTO 219 

178 PRINT TAB(POS(2)+J) A$; 

188 FOR X = 1 TO 268 : NEXT X 

199 P=P+4+59: C=CH#1 

282 GOTO 168 

21@ FOR X = 1 TO 388 : NEXT X 

228 CLS +: PRINT “THE FROG JUMPED OFF THE SCREEN IN";C;"JUMPS"” 
238 PRINT "HIS LEAP WAS"3J;"SPACES" 


(a) For each run that you make, the space between each frog imprint will de- 


pend on what? en 
(b) Complete this table showing how many jumps it takes for the frog to clear 
the screen: 


J Input Total Jumps 
2 


35 


(c) Change line 120 so that a random-length jump will be made. 
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(a) the value of J, your input 


(b) J Input Total Jumps 


(c) 129 


2 1 
4 

8 

10 
20 
35 


NW NM OV CO = 


J = RND(57) 


Your value in parentheses 
may differ. 





Jump next to the Self-Test that follows, so you can test your knowledge of how 
to enter and display data. 


SELF-TEST 


Here is another chance to show how much you have learned. 


1. Whenever a READ statement is used, there must be a corresponding 


statement. 


2. The following program is executed: 


188 
119 
128 
138 


READ A 

PRINT A 

GOTO 192% 

DATA 55,122,66,144 


What is printed after line 120 is executed for the fourth time? 


3. Find errors in statement 130. Assume the program of test question 2 is 
being run with this modification: 


138 DATA 55;183,A+5,99 


Errors: 





12. 


ENTERING AND DISPLAYING DATA 


Complete line 110 so that a flag will avoid an out-of-data error. Six items 
are to be printed. 


122 READ C 


148 DATA 11,22,33,44,66,77,-9999 

158 END 

Complete the FOR-NEXT statements so that this program will read and 
print all data provided. 

188 FOR X = 

118 READ A,B 

128 PRINT A;B 


138 
148 DATA 1,2,3,4,5,6,7,8 


Write a modification of line 120 in the program of question 5 using the 
TAB function. A is to be printed 8 spaces in from the left margin. B is to 
be printed 16 spaces in. 


128 





Print positions used with the TAB function may be integers from 
through 
The value or expression following PRINT@ may be from 
through 
If the information in line 150 below is to be read from a DATA statement, 


what kind of variable must be used in the corresponding READ statement? 


152 DATA "READ","THIS LINE” 
If two READ statements are used in a program, may the same data list be 
used for both READ statements? 


What happens to the data pointer when all data items of a list have been 
used and a RESTORE statement is executed? 


This program is illegal: 


198 CLS 
119 A= 5 
128 PRINT TAB(POS(A)+8) 


(a) Which line should be deleted? 
(b) Rewrite the line that should be changed. 


181 
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13. 


14. 


The numbers in parentheses refer to the frames in the chapter where a topic is 


Complete these lines so that 4 spaces would be provided between the words: 


188 PRINT “FOUR" TAB( ) "SPACES"; 
118 PRINT TAB( ) "BETWEEN"; 
158 PRINT TAB( ) "woros" 


Show the screen display for this program: 


19% CLS 
118 PRINT 064, "START" TAB(POS(3)+4) "END" 


Ist line en es 
2nd line eee 
3rd line 





Answers to Self-Test 





discussed. 
1. DATA statement (frame 1) 
2. 70D ERROR IN 19@ (frame 1) 
3. Errors: semicolon after 55 
A+5 (no variables or arithmetic operators) (frames 2, 3) 
4. 119 IF Cc = -9999 THEN 159 or 
119 IF C = -9999 GOTO 158 or other forms of the same (frame 5) 
5. 198 FOR X = 1 TO 4 
13 NEXT X (frame 9) 
6. 128 PRINT TAB(8) A; TAB(16) B (frame 12) 
7. from 0 through 63 (frame 13) 
8. from 0 through 1023 (frame 14) 
9. string variable (frame 16) 
10. yes (frame 19) | 
11. the pointer moves back to the beginning of the DATA list (frame 23) 
12. (a) delete line 110 


(b) 128 PRINT TaB(POS(5)+8) (frames 27, 31) 
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13. 199 PRINT "FOUR" TAB(POS(1)+4) "SPACES"; 
119 PRINT TAB(POS(1)+4) "BETWEEN"; 
128 PRINT TAB(POS(1)+4) "WORDS" 








Any numerical 
expression is OK. 


(frames 27, 28, 31) 









14. Ist line 
2nd line 






START END (frame 29) 





3rd line 


4 spaces 





CHAPTER EIGHT 


Strings 








You have used strings in earlier chapters in INPUT and PRINT statements 
such as: 








49 INPUT "WHAT DIAMETER IS THE_WHEEL"; D 
582 C = 3.14159*D 
6@ PRINT "THE CIRCUMFERENCE OF THE WHEEL IS"; C 


or 










String 
variable 


NS 





26 INPUT "WHAT IS YOUR NAME"; 
32 INPUT "HELLO "3; NS 






String comparisons have also been used. For example: 
258 IF AS = "YES" THEN GOTO 198 


In this chapter, we will attempt to untie some of the ‘‘knotty’’ string experiences 
that will face you in the future. 
After completing this chapter, you will be able to: 


set aside memory space for strings; 

catenate (or join) strings together; 

have the computer calculate the length of strings; 

find a substring contained in a string; 

compare strings for precedence (which one comes first alphabetically); 
display ASCII codes for keyboard characters; 

use inequalities with strings; 

display keyboard characters from ASCII codes. 


1. When the TRS-80 is turned on, 50 characters of memory are automatically 
set aside for string space. If you are using several strings, or a few long strings, 
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50 characters may not be neough. When you try to run your program, you may 
get an OS ERROR IN LINE XX (Out of String Space). For example: 


182 
112 


128 


132 
148 


CLS 

INPUT “TYPE IN A STRING AT LEAST 25 LETTERS (OR SPACES) 
LONG"; A$ 

INPUT "TYPE IN A STRING AT LEAST 26 LETTERS (OR SPACES) 
LONG"; BS 

PRINT A$ 

PRINT BS 


This is our run. Notice how the word ‘‘MY”’ is broken at the end of the line: 


TYPE IN A STRING AT LEAST 25 LETTERS (OR SPACES) LONG? THIS IS M 
Y SENTENCE - 25 LETTERS AT LEAST 
TYPE IN A STRING AT LEAST 26 LETTERS (OR SPACES) LONG? THIS IS M 
Y SECOND SENTENCE ALSO VERY LONG 


?0S ERROR IN 128 


Out of It happened in 
string space. line 120. 





How many characters of string space are available when the TRS-80 is 


turned on? 
I counted 41 characters in the A$ input. How many characters can we have 


in B$ without getting an OS ERROR? 


(a) 50; (b) 9 (A$ used up 41 characters out of 50.) 


2s 


memory by using the CLEAR N statement (see Chapter 3, frame 20). The total 
number of string characters needed (one for each character and blank space) is 
used in place of N. It is better to save too many than too few. But when you see 
the OS ERROR in the future, you will know what to do. For example: 


195 CLEAR 198 


(a) 


To correct the situation in frame 1, we can save more string space in 











Number of 
bytes set aside 
for strings. 


If we add the above statement to the program in frame 1, will we get an OS 
ERROR when we run it? 
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(b) Complete the screen display below to show the results of a run with line 105 
added. 


TYPE IN A STRING AT LEAST 25 LETTERS (OR SPACES) LONG? THIS IS M 
¥ SENTENCE - 25 LETTERS AT LEAST 
TYPE IN A STRING AT LEAST 26 LETTERS (OR SPACES) LONG? THIS IS M 
Y SECOND SENTENCE ALSO VERY LONG 





TYPE IN A STRING AT LEAST 25 LETTERS (OR SPACES) LONG? THIS IS M 
Y SENTENCE - 25 LETTERS AT LEAST 

TYPE IN A STRING AT LEAST 26 LETTERS (OR SPACES) LONG? THIS IS M 
Y SECOND SENTENCE ALSO VERY LONG 

THIS IS MY SENTENCE - 25 LETTERS AT LEAST 
THIS IS MY SECOND SENTENCE ALSO VERY LONG 










Now it is OK— 
no OS ERROR. 


3. There is an operation that can be performed on strings called catenation. 
When you catenate two or more strings, you join them together (or unite them). 
The operator for joining strings together is the + sign. In arithmetic the + sign 
is used for adding two quantities, but when used with two strings it joins them 
together. For example: 














19 CLS 

2@ CLEAR 188 

38 AS = "THE DRAGON" 

42 BS = " SLEW " Be sure to include 
52 c$ = " BARBEQUED" spaces. 

6@ DS = " HIS DINNER." 

70 ES = "THE BLACK KNIGHT" 


8B PRINT AS + CS + DS 


Join them together. 
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When run: 





LIBRE DRAGON DRAGON BARBEQUED) ESO LNNE Ry DINNER. 


= 6S 


Now change line 70 to: 







72 PRINT ES + BS + AS + “L" 
This joins a period 
to the rest. 






When run: 





THE BLACK KNIGHT) (SLEW {THE DRAGON). 







From quotes 


Of course, there are many combinations that you could make by catenating A$, 
B$, C$, D$, E$ + anything else in ‘‘quotes.”’ 
Write a PRINT statement to display: 





THE BLACK KNIGHT FELL BEFORE THE DRAGON 


82 PRINT 


82 PRINT E$+" FELL BEFORE ."+A$ 
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4. You may also enter strings and then use them in the catenation operation. 
For example: 







198 CLS 
118 CLEAR 292 
12@ INPUT "TYPE IN AN ADJECTIVE"; AS 

13@ INPUT "TYPE IN A VERB (PAST TENSE)"; BS 





Notice increased 
string space reserved. 






148 C$ = "THE WHITE KNIGHT " 
158 DS = " DAMSEL NAMED KIT." 
168 PRINT 


178 PRINT C$ + BS +" THE "+ AS + DS 


The run: 





TYPE IN AN ADJECTIVE? BEAUTIFUL 
TYPE IN A VERB (PAST TENSE)? KISSED 


THE WHITE KNIGHT KISSED THE BEAUTIFUL DAMSEL NAMED KIT. 


(a) How many bytes of memory does the program set aside for string space? 


(b) Would 100 bytes have been enough? 





(a) 200 
(b) It depends on the length of the A$ and B$ strings that you type in. 


5. A string variable may be assigned to the unification (catenation) of other 
Strings. For example: 


TS = AS + BS 


(a) Rewrite line 170 of the program in frame 4 to assign the catenation in the 
PRINT statement to the variable T$. 


172 





(b) Write a new line 180 to print T$ on the eighth line of the screen. 





(a) 170 TS = CS + BS +" THE "+ AS + DS 
(b) 189 PRINT 0448,TS 
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6. Wecan determine the length of any string with a PRINT statement such as: 


PRINT _LEN(AS ) 


If: AS = "PRINCE CHARMING LIVES." 















then: LEN(AS) = 22 
Quotes are not counted. 


PRINCE CHARMING LIVES. 
1234567899123456789812 Each character and blank space is 


counted. The period (.) counts as a 


10 20 character. 
If: BS = "SLEEPING BEAUTY WILL AWAKE!!!" 
then: LEN(BS) = 29 


SLEEPING BEAUTY WILL AWAKE!!! 
12345678981234567899123456789 





Note that punctuation marks count as 
characters. 


10 20 29 


Now it’s your turn. Give the length of each. 








AS = "HAPPY HOLIDAYS!" LEN(A$) = 
BS = "HOW LONG AM 1?” LEN(BS) = 
es = =" LEN(C$) = 
DS = "FUN, ISN'T IT? YES?" LEN(D$) = 
Es = "EIGHT" LEN(ES$) = 
Fs = "FOUR" LEN(FS$) = 
LEN(AS) = 15 

LEN(B$S) = 14 ai : . 

LEN(C$) = @ ( is an empty string, with no 
LEN(D$) = 28 characters.) 

LEN(ES) = 5 

LEN(FS) = 4 


7. We could use this feature to determine the length of each of the strings that 
we used in the program of frame 4 (as modified in frame 5). We would add these 
lines to the program. 


208 PRINT LEN(A$);LEN(BS$) ;LEN(C$);LEN(DS);LEN(" THE ") 
218 PRINT LEN(TS) 
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Give the values that you would expect to be printed. 
LEN(AS ) = 
LEN(B$) = 
LEN(C$) as 
LEN(D$) = 
LEN(" THE ") = 


LEN(TS) _ 


LEN(AS$) 
LEN(BS$) 
LEN(C$) 
LEN(DS$) 
LEN(" THE ") = 5 

LEN(T$) = 55 (This is the sum of the lengths of the strings which are 


catenated to form T$.) 


nouou a 
a 


8. A string has a beginning and an end. We know now that a string also has 
length. Since we normally read from left to right, the beginning of a string 
naturally starts on the left. 


AS = "THE LEFT OF A STRING IS ITS BEGINNING." 


The string features of the TRS-80 are many and magnificent. If you don’t 
want to use all of A$, there is a statement that will let you use only the left part 
of it. You can take as much as you want. 


LEFTS (string,n) 























and take this 
many characters. 


of this 
string 


Start from 
the left 


If we enter this: 





198 CLS 

116 AS = "THE LEFT OF A STRING IS ITS BEGINNING." 
128 PRINT LEFTS$(A$,8) 

RUN_ 








192 
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When we press the ENTER key we see: 


THE WEFT 


(a) If line 120 said: 120 PRINT LEFT$(A$,11), what would the screen show 
when run? 


(b) If 120 said: 120 PRINT LEFT$(A$,20), what would the screen show? 


THE LEFT OF 


(b) 





THE LEFT OF A STRING 


9. Wecan assign a part of a string to another string variable—such as: B$ = 
LEFT$(A$,8). The following program defines several such ‘‘substrings’’ of A$: 


1@@ CLS : CLEAR 159 


118 AS = "THE LEFT OF A STRING IS ITS BEGINNING." 
128 BS = LEFTS(A$,8) 
138 C$ = LEFTS(A$,11) 
148 DS = LEFTS(A$,228) 
159 ES = LEFTS$(A$, 23) 
168 FS = LEFTS$(A$,38) 


178 PRINT BS : PRINT C$ : PRINT DS : PRINT ES : PRINT FS 


Show how the display will look after running the program. 
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THE LEFT OF 

THE LEFT OF A STRING 

THE LEFT OF A STRING IS 

THE LEFT OF A STRING IS ITS BEGINNING, 


10. In Chapter 7, frame 25, the constellation Draco was shown in the sky. It 
turned on and off but not very realistically. The program below randomly blinks 
the stars in the constellation. Note the use of LEFT$ in line 520. 


128 REM***DRACO BLINKS 
112 CLS 
128 RESTORE 


218 FOR X = 1 TO 14 

22@ READ OVER,DOWN 

232 SET(OVER,DOWN) 

248 NEXT X 

25@ PRINT 02354, "DRACO BLINKS" 
26@ FOR W = 1 TO 2@@ : NEXT WwW 


398 FOR N = 1 TO 18 
318 RESTORE 
328 FOR X = 1 TO 14 


332 READ OVER,DOWN 

348 Y = RND(2) 

359 IF Y = 1 THEN RESET(OVER, DOWN) 
366 FOR Ww = 1 TO 18 : NEXT w 

376 SET(OVER,DOWN) 

388 FOR W = 1 TO 18 : NEXT W 


398 NEXT X 
488 NEXT N 


522 CLS 

518 INPUT "DO YOU WANT TO WATCH SOME MORE (YES OR NO)"; A$ 
528 IF LEFT$(A$,1) = "Y" GOTO 118 

532 PRINT "THANK YOU FOR WATCHING" 

548 PRINT : PRINT "GOODBYE" : PRINT 


68D DATA 27,22,29,24,27,25,24,23,49,16,44,15,45,19 
618 DATA 39,23,39,26,39,29,41,31,53,38,64,28,69,29 
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(a) 


(b) 


(c) 


11. 


A player types just the letter Y and presses ENTER when the program 
reaches line 510. When line 520 is executed, will the program go to line 110 


or line 530? ——— 
In line 520, only the first letter of the input is checked. Change line 520 so 
that it looks at the first three letters YES. 


528 
With the change to line 520, if a player types just the letter Y and presses 





ENTER, will the program now go to line 110 or to line 530? 


110 
132 IF LEFTS(A$,3) = "YES" GOTO 118 


530 


Just as a string has a left beginning, so it must have a right ending. As you 


would suspect, the TRS-80 can also take substrings off the right end of a string. 
You probably have already guessed what the statement is. 


Z$ = 


RIGHTS (string,n) 
















and take this 
many characters. 


of this 
string 


Start from 
right end 






Let: 


"THE END OF A STRING IS ON THE RIGHT." 


If we enter this program: 





192 CLS 

119 Z$% = "THE END OF A STRING IS ON THE RIGHT." 
129 PRINT RIGHT$(Z$,6) 

RUN_ 


when we press the ENTER key, we see: 


RIGHT. 
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(a) Change line 120 so that the screen will show: 


ON THE RIGHT. 


126 


(b) Change line 120 so that the screen will show: 





A STRING IS ON THE RIGHT. 


(a) 120 PRINT RIGHTS(Z$,13) 
(b) 129 PRINT RIGHTS(Z$,25) 


12. Complete the following program, which is similar to that of frame 11. Use 
string variables for substrings to produce this display from $Z = ‘‘THE END 
OF A STRING IS ON THE RIGHT.”’ 





THE RIGHT. 
RING ON THE RIGHT. 
END OF A STRING IS ON THE RIGHT. 


The program: 

196 CLS : CLEAR 158 

118 Z$ = "THE END OF A STRING IS ON THE RIGHT." 
128 AS = 

138 BS = 


148 C$ 


A MULTIPLE 
<«———. statement line 
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dae 


12@ AS = RIGHT$(Z$,18) 
138 BS = RIGHT$(Z$,21) 
148 C$ = RIGHTS(Z$,32) 


15@ PRINT AS : PRINT BS : PRINT C$ 


13. Now we come to the most magnificent string feature of all, the MID$ func- 
tion. Strings have a beginning on the left, and an end on the right. And they 
have a middle that joins the beginning and the end. 


LEFTS MIDS RIGHTS 


To pick a substring out of the middle of a string, we must decide where to start 
and how many characters to take. That’s just what the MID$ function provides. 


mips (string,p,n) 
























and take this 
many characters. 


start with 
this position 
(from left) 


Start some- 
where near 
the middle 


Let’s see how it works. 


zs = "THE HEART IS THE MIDDLE OF A STRING." 


ee 


MID$(Z$,14,18) = THE MIDDLE 















14th 
character 


10 characters 
in all 





Show these substrings of Z$: 


(a) MIDs(z$,5,19) = 





(b) mips(z$,18,18) = 








(a) Mmro0s(z$,5,19) = (HEART IS THE MIDDLE 






19 CHARACTERS (spaces are 
counted too) 


(b) mios(z$,18,18) = MIDDLE OF A STRING 


ma 
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14. Here is a program that uses Z$ but completely scrambles the sentence: 


199 CLS 

112 Z$ = "THE HEART IS THE MIDDLE OF A STRING." 

128 AS = MID$(Z$,14,11) 

138 BS = MID$(Z$,25,11) . 

148 C$ = MID$(Z$,16,4) 
158 DS = MID$(Z$,1,9) 

168 ES = MID$(Z$,36,1) 








178 PRINT AS + BS + C$ + DS + ES 





Join the pieces 
together again—but 
in a different order. 


Show the display when the program is run. 





THE MIDDLE OF A STRING IS THE HEART. 


15. Sometimes the same result can be achieved by using either MID$ or LEFT$. 
Sometimes the same result can be achieved by using either MID$ or RIGHTS. 
Study lines 150 and 160 of the program in frame 14. 

Replace each line using either LEFT$ or RIGHTS. 


(a) 152 


(a) 158 DS = LEFTS(Z$,9) 
(b) 169 ES = RIGHTS(7Z$,1) 


16. Earlier in the book you made string comparisons to see whether or not two 
strings were equal. For example: 


38 IF AS = "YES" THEN GOTO 188 
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Strings are compared by checking each character from left to right. For example: 
A$ = ‘‘CAB” and B$ = ‘‘CAN’’ 


L. € EQUALS Cc 
2. A EQUALS A 
but 3. B DOES NOT EQUAL N 


Therefore A$ is not equal to B$. 

Deep down inside the computer, characters are stored (in memory) as 
ASCII codes (ASCII means American Standard Code for /nformation /nter- 
change). The ASCII code for A is 65, the ASCII code fo B is 66, and the ASCII 
code for C is 67. 


(a) Guess the ASCII code for the letter D. 
(b) Guess the ASCII code for the letter Z. 


(a) 68; (b) 90 

ASCII codes for letters run from 65 (A) to 90 (Z). 

17. We can use the ASC function to get the ASCII code for any keyboard 
character. 


We type: PRINT ASC("A") 
It prints: 65 





We type: PRINT ASC("B") 
It prints: 66 


We type: PRINT Asc("Z") 
It prints: 90 


We type: PRINT asc("*") 
It prints: 42 


Appendix G is a list of ASCII codes for all characters used in TRS-80 
BASIC. Use Appendix G to help you complete the following: 


(a) You type: PRINT asc("c") (b) You type: PRINT asc("+") 
It prints; _ It prints: 
(c) You type: PRINT asc(";") (d) You type: print asc("\") 


It prints; __ It prints: _. Csr) 
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(a) 67 
(b) 43 
(c) 59 


(d) 32 (Yes, even a space has an ASCII code!) 


18. The ASC function delivers the ASCII code of a keyboard character, 
enclosed in quotation marks. 


ASC("A") 






The letter A is enclosed 
in quotation marks. 







We can also use ASC to compute the ASCII code for the value of a string 
variable. 


We type: zs = "a" 
We type: PRINT ASC(ZS) 
It prints: 65 


We type: xs = "mM" 
We type: PRINT ASC(Xx$) 
It prints: 77 


Your turn. Complete the following: 


(a) Youtype: ss = "+" 
You type: PRINT ASC(B$) 
It prints: 


(b) Youtype: ks = "z" 
You type: PRINT Ks 
It prints: 


(c) This one is tricky. Go ahead—guess! 


You type: ns = "Asc" 
You type: PRINT NS 


It prints: 
(a) 43 
(b) 90 


(c) 65 (The ASC function computes the ASCII code of the first 
character in the value of N$.) 


19. It’s play time now. How about a game of ‘‘Guess My Letter’’? In this game 
the computer will think of a letter from A to Z. You will then try to guess what 
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letter it’s thinking of. If you guess wrong, it will give you a clue. Here is the first 
part of the program: 


122 REM***GUESS MY LETTER GAME 

118 REM***EXPLAIN GAME TO PLAYER 

122 CLS 

138 PRINT "I'M THINKING A LETTER FROM A TO Zz." 
148 PRINT "GUESS MY LETTER!!!" 


202 REM***xX = ASCII CODE FOR SECRET LETTER 
218 X = RND(26) + 64 


Your turn—answer these questions: 


(a) What values are possible for RND(26)? __._ SEES 
(b) When 64 is added to your answers in part (a), you have the range of values 


for X. What is this range? _. Ss to 
(c) What is the possible range of values for the ASCII codes of the alphabetic 


characters? to 


(a) integers from 1 through 26 inclusive 
(b) integers from 65 through 90 inclusive 
(c) also integers 65 through 90 inclusive 


Aha! RND(26) + 64 is an integer in the range 65 to 90. Therefore, it is the 
ASCII code for a letter in the range A to Z. 

20. Here is the next piece of the program: 

392 REM***GET GUESS (G$). IS IT A LETTER? 

318 PRINT : INPUT "YOUR GUESS (A TO Z)"; G$ 

32@ IF ASC(G$) < 65 THEN PRINT "GUESS A LETTER!" : GOTO 316 


338 IF ASC(G$) > 90 THEN PRINT "GUESS A LETTER!" : GOTO 318 


Lines 320 and 330 compare the ASCII code of the guess (G$) with the ASCII 
codes for A and Z. 


(a) If the code for G$ is less than the code for A or more than the code for Z, 


what happens? 


(b) If the code for G$ is between 65 and 90, inclusive, what happens? 


(a) The computer prints GUESS A LETTER! then goes to line 310 and asks 
for another guess. 

(b) The computer moves on to the next line after line 330, which you will see in 
the next frame. 
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21. Next we compare the ASCII code of the guess with the ASCII code of the 
secret letter. 


482 REM***COMPARE GUESS WITH SECRET LETTER 
418 IF ASC(G$) = X THEN GOSUB 518 : GOTO 128 
42@ IF ASC(G$S) < X THEN GOSUB 618 

438 IF ASC(G$) > X THEN GOSUB 718 

449 GOTO 312 


Remember, the value of X is the ASCII code of the computer’s secret letter. 

If the player guesses the secret letter, the condition in line 410 is true. The 
computer will go to line 510. The section of the program beginning at line 510 
will tell the player he or she has guessed the secret letter. 


(a) Suppose the guess is ‘‘earlier’’ in the alphabet than the secret letter. What 


happens? 











(b) Suppose the guess is ‘“‘later’’ in the alphabet than the secret letter. What 


happens? 











(a) The condition in line 420 is true. The computer will call (use) the subroutine 
beginning in line 610. 

(b) The condition in line 420 is true. The computer will call (use) the subroutine 
beginning in line 710. 


22. Your patience is rewarded! Here is the rest of the program. These are the 
messages to the player: 


5@2 REM***PLAYER HAS GUESSED THE SECRET LETTER 
512 PRINT "YOU GUESSED IT!!!" 

528 FOR Z = 1 TO 1988 : NEXT Z 

539 RETURN 


628 REM***GUESS IS ‘LESS THAN' SECRET LETTER 
619 PRINT "TRY CLOSER TO THE END OF THE ALPHABET" 
628 RETURN 


7028 REM***GUESS IS ‘MORE THAN’ SECRET LETTER 

71@ PRINT "TRY CLOSER TO THE BEGINNING OF THE ALPHABET" 
720 RETURN 

999 END 


We did say that it’s play time. So. . . play! 
A gentle warning: When you play this game, pressing certain keys may 
cause an FC ERROR to occur. For example, this may happen if you enter a 


a 








202 TRS-80 BASIC 








space without quotation marks or a left arrow (<) or a down arrow (4). We are 
not going to try to explain why, but we will offer a way to fix the problem. 
Replace line 310 with the following bunch of lines. 


318 PRINT : PRINT "YOUR GUESS (A TO 2)?"; 
312 GS = INKEYS : IF GS = "" THEN 312 
314 PRINT G$ 


Watch for our next TRS-80 Self-Teaching Guide, in which we try to explain 
our way out of the above idiosyncrasy of the TRS-80! 


23. When two strings are compared, the character for the lower code is con- 
sidered to precede the other character. For example, CAB precedes (comes before 
or is ‘‘less than’’?) CAN because the ASCII code for B is 66, which is less than 
the ASCII code for N, which is 78. 

CAB precedes CABIN and CAN precedes CANDY. If a word is the left- 
most part of a longer word, then the shorter word precedes the longer word. Got 
that? 





CAB precedes CABIN 
CAN precedes CANDY 
ABC precedes ABCD 


ZZZ precedes ZZZZ 


CANDLE, of course, precedes CANDY. 


L precedes Y 
CANDLE CANDY 


These are the same 


Hmmm .... it is very much like the way things are organized in a dictionary! 
Your turn. For each pair of words or other bunches of characters, complete 
the sentence about precedence. If necessary, use the ASCII codes in Appendix G. 


First ““‘Word’’ Second ‘‘Word’’ Precedence Sentence 
(a) A Z _______ precedes 

(b) ABD ABC _________ precedes 

(c) ZZZQ ZZZPP _______ precedes 

(d) TRS 80 TRS-80 ______—s precedes 

(a) A; Z How about that for an easy one! 


(b) ABC; ABD Still pretty easy. 
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(c) ZZZPP; ZZZQZ Did you get this one? 

(d) TRS 80; TRS-80 Ha! Bet we got you on this one. Since the ASCII code 
for space is 32 and the ASCII code for the hyphen is 
95, TRS 80 precedes TRS-80. 


24. ASCII characters can be letters A to Z, or numerals 0 to 9, or punctuation 
marks (. , ; and so on), or special characters (*, %, #, and so on), and /ots 
more. To help you really explore the world of ASCII, we’ll let you in on another 
BASIC feature, the CHR$ function. 


cHRs (expression) 


The CHR$ function gives the character that corresponds to the ASCII code 
enclosed in parentheses. 






Any variable, expression, or 
a number 0-255 inclusive. 


We type: PRINT CHRS$(65) 
It prints: A 


We type: PRINT CHRS(92) 
It prints: + 


Your turn. Use Appendix G or your TRS-80 to help you complete the 
following: 


(a) You type: PRINT CHRS(66) 


It prints: 

(b) You type: PRINT CHRS(35) 
It prints: 

(a) 8 

(b) # 


25. Experiment. Use the following program to explore the characters that cor- 
respond to ASCII codes: 


192 CLS 
11@ INPUT "FIRST ASCII CODE" ; FIRST 
128 INPUT “LAST ASCII CODE" ; LAST 


136 FOR CODE = FIRST TO LAST 


142 PRINT CODE "=" CHRS(CODE), 
158 NEXT CODE Comma 


168 GOTO 1628 
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Here is what happened when we ran the program using 32 for FIRST and 63 for 
LAST. Compare the information on the screen with Appendix G. 


FIRST ASCII CODE? 32 
LAST ASCII CODE? 63 





Suppose you want to run the program and show the codes and characters 
for the letters A through Z. 


(a) What value will you enter for FIRST? 
(b) What value will you enter for LAST? 





26. The ASCII codes 129 to 191 represent graphics ‘‘characters.’’ RUN the pro- 
gram from the preceding frame and enter 129 at the request for the first ASCII 
code; 191 at the request for the last code. The screen fills with ‘‘characters.’’ 
Let’s try another program before we attempt to explain any of this. The follow- 
ing program will show the graphics characters more clearly: 


192 CLS 

118 FOR CODE = 129 TO 191 | 
122 PRINT CODE CHR$(CODE) CHR$(32) CHRS$(32); 

139 IF POS(123) = 8 THEN PRINT 

14% NEXT CODE 

152 GOTO 158 


RUN the program on your TRS-80. The screen should look like this: 


yok (OD 1ST Mee 1 
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Yes, yes—we know that the program is a little mysterious. But it showed the 
graphics characters (didn’t it???). Read on. We will try to explain the program. 


27. Ha! We tricked you. Instead of explaining the program, we will do 
something with the graphics characters. 
Try this program. (Have patience—we will explain the program soon.) 


12 CLS 

28 PRINT CHR$(32) CHR$(32) CHR$(151) 

3@ PRINT CHR$(143) CHR$(143) CHR$(143) CHR$(143) CHRS$(131) 
48 GOTO 48 


Before you RUN this program, look at the graphics characters for codes 151, 


143, and 131. Then sketch the ‘‘picture’’ that will appear on the screen when the 
above program is run. 


Put your sketch on the 
screen in the place where it 
will appear. 


Got the picture? (Oops, 
sorry.) You can use the 
graphics characters as 
building blocks to make 
pictures on the screen. 





28. OK, OK, we will try to explain the program in frame 26. Here it is again: 


198 CLS 

118 FOR CODE = 129 TO 191 

128 PRINT CODE CHRS$(CODE) CHR$(32) CHR$(32); 
138 IF POS(®) = ® THEN PRINT 

148 NEXT CODE 

158 GOTO 1528 


We suspect that you may have some difficulty understanding lines 120 and 130. 
So, here we go. 














122 igs” coare CHR$(CODE) CHR${32) CHR$(32) 
‘ 


This occupies five This occupies Two spaces. 


print positions one print 
(space, three digits, position. 
space). 


Each time line 120 is executed, the information printed uses exactly eight 
print positions. Therefore, after line 120 has been executed eight times, the end 
of a line is reached as the computer moves to the beginning of a new line. Aha! 
Look at line 130. 


138 IF POS(®) = @ THEN PRINT 


If the cursor is at the left side of a new line—POS(0) = 0 is true—the TRS-80 
prints an empty line. That’s how we get our ‘‘double spacing.”’ 

Remember, for printing characters, the screen is 64 characters wide. So, if 
we print eight characters across the screen eight times, we get to the end of the 
screen. The computer moves on to the zero (0) position of the next line. Then, 
line 130 causes an empty line to be printed, giving us our desired double spacing. 


29. Pick any graphics character. Write a program to put 100 characters on the 
screen in random positions. (For review, see frame 8, Chapter 5.) 
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We picked the character whose ASCII code is 167. 
19@ CLS 

11@ FOR K = 1 TO 189 

120 PRINT @RND(1823), CHRS(167) ¢ 


138 NEXT K 
14@ GOTO 148 


30. Now modify your program in the previous frame so that each character is 
also picked at random. 


Here are the changes to our program: 


115 X = RND(63) + 128 
12@ PRINT @RND( 1923), CHRS(X) 3; 


31. There is a nice shortcut for printing a string of repeating characters on the 
screen. This statement will do the trick: 


PRINT STRINGS (n, Character or number) 






















Number of times you want the 
character printed, or length of the 
string. 


Any number 0-255 or a character 
that will be treated as ASCII, 
control, or graphics code. 


We type: PRINT STRINGS(5,65) 
It prints: AAAAA 


We type: PRINT STRINGS(10, "*") 
It prints: ****#*#*** 


We type: as = "+" 
We type: PRINT STRINGS(7,A$) 
It prints: +++++++ 


(a) The ASCII code for the letter X is 88. Write a statement using STRING$ to 
print 13 X’s. 
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(b) Show what this program will display when run. 


1 
28 
32 
48 


cLsS 
PRINT STRINGS(8,"*") 

PRINT STRING$(2,"0") " " STRINGS(2,"0") 
PRINT STRINGS(8,"*") 





(a) PRI 


ak 


oo 
*R 


NT STRING$(13,88) or PRINT STRINGS$(13,"X") 


KOK Kk 


ieja) 
KK 


32. A numeric variable may be used for the ASCII code in the STRINGS func- 
tion, provided that the value of the variable is in the ASCH code range 0 to 255. 


We type: 
We type: 
It prints: 


We type: 
We type: 
It prints: 


The FC 
Co 


(a) Yo 
Yo 


Cc = 98 
PRINT STRING$(7,C) 


ZZZZZZZ 
Cc = 256 
PRINT STRING$(7,C) 


?FC ERROR 


ERROR occurred because the value of C was more than 255. 
mplete the following: 


u type: c = 65 
u type: PRINT STRING$(3,C) 


It prints: 


(b) Yo 
Yo 
Yo 


u type: nN = 7 
utype: z= 42 
u type: PRINT STRINGS(N,Z) 


It prints: 


(a) AAA 
(b) RK KOK 
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33. And now, for our finale, let’s put fancy lines across the top and bottom of 
the screen. We will do this by using the STRING$ function with two ASCII 
codes of our choice. 






1@@ CLS 

118 CLEAR 286 
128 PRINT @@, STRING$(64,134); 
138 PRINT 0968, STRING$(63,182);3 
148 GOTO 148 


We want 200 characters 
of string space. 






Why did we print only 63 characters in line 130? Try it with 64 and find out 
what happens. 


To summarize, there are other fancy things that you can do with strings, but 
you’ve learned enough in this chapter to use them effectively. Here is a review of 
what we covered: 


—String space is reserved by the CLEAR statement. 

—Strings may be joined (catenated) with the + sign. 

—The length of a string may be determined by the LEN statement. 

—The LEFT$ statement picks a substring from a string starting from the 
left. 

—The RIGHTS$ statement picks a substring from a string starting from 
the right. 

—The MID$ statement picks a substring from a string starting from any 
specified character. 

—String comparisons may be made for equality or inequality. 

—The ASC statement returns the ASCII code for the first character of a 
string. 

—The CHR$ statement returns a character when the character’s ASCII 
code is specified. 

—The STRINGS statement repeats a specified character a specified 
number of times. 


Now try our Self-Test, with no strings attached. 


SELF-TEST 
Congratulations! You have made it through another episode. Now we give you 
another chance to show how much you have learned. 
1. When your computer displays: 70s ERROR IN 159 


what is the problem? 














| 
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2. What can be done about the situation arising in exercise 1? 








How does the operation A$+B$ differ from A+B? 








AS = "BIMBO" = THE BLIMP" 


One space 


If B$ equals the string shown in exercise 4, what is the value of LEN(B$)? 





6. If A$ equals the string shown in exercise 4, give the values of the following: 


(a) LEFTS(A$,3) = 





(b) RIGHTS(AS,4) = 





(c) MmrIos(as,2,3) = 





7. Complete the following inequalities with the symbols < or >: 





AS = "ARTISTIC" BS = "ARITHMETIC" 
cs = "BASIC" DS = "BASICALLY" 
(a) as____sss 
(b) Bs___scs 


(c) cs___os 


8. Using the strings in exercise 7, complete these inequalities (or equalities): 





(a) asccas) ASC(BS) 
(b) aAsc(Bs) ASC(CS) 
(c) asc(ps) ASC( "ALPHA" ) 


9. If C$ = “AZBYC”’: 





ASC(MID$(A$,3,1)) = 





10. Show the display resulting from a run of this program: 


198 CLS 
112 AS = “FUNDAMENTAL” 
128 B = ASC(MID$(A$,5,1)) 
132 PRINT B 

14@ PRINT CHR$(B) 
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11. 


12. 


Complete this program, which will display the first thirteen letters of the 
alphabet with their ASCII codes: 


128 
112 


128 


138 


152 


CLS 





PRENT ——..—___._ _—_ ..__ —_—__ a os 


NEXT 


Show the display resulting from a run of this program: 


122 
118 
128 
130 
142 
158 


CLS 

AS = "*" , BS = No" 
PRINT STRINGS$(8,A$) 
PRINT 


PRINT STRINGS$(4,B$) 
PRINT @192,STRINGS$(8,A$) STRING$(4,B$) 


es STS li 


+ 2nd line 





+ 3rd line 


< 4th line 





Answers to Self-Test 


Not enough memory space has been reserved for the strings used in the pro- 
gram. (frame 1) 


Use the statement CLEAR XXX where XXX reserves enough string space 
for your program. (frame 2) 


A$ +B$ joins (or catenates) the strings named by the string variables A$ 
and B$. A+B adds the values of the numeric variables A and B. (frame 3) 
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4. A+B = 22.5 
A$ + BS = BIMBO THE BLIMP (frame 3) 


5. LEN(BS) = 19 (frame 6) 


6. (a) LEFTS(A$,3) = BIM (frame 8) 
(b) RIGHTS(A$,4) = IMBO (frame 11) 
(c) MIDS(A$,2,3) = IMB (frame 13) 


7. (a) As > Bs 
(b) Bs < cs 
(c) cs < os (frame 23) 


8. (a) asctas) = ASC(BS) 
(b) asc(Bs) < asc(cs) 
(c) aAsc(D$) > ASC("ALPHA") (frame 23) 


9. ASC(MIDS(A$,3,1)) = 66 (frames 13, 16-18) 





10. 
65 
A (frames 13, 16-18) 
11. 118 B = 65 
126 E = 77 
148 PRINT CHRS(L) " =" L 
15@ NEXT L (frame 24) 
12. 
OR OK ORK + Ist line 
+ 2nd line 
ooo0o0 + 3rd line 
AEE KO QQO + 4th line (frame 31) 














CHAPTER NINE 


One-Dimensional Arrays 








In this chapter, you will learn to use subscripted variables and one-dimensional 

arrays. You will learn to INPUT data and store it in an ordered list (an array). 

You will also learn to READ data from a data list and store it in an array, where 

it is held for you to use when needed. Each item in the array is numbered so that 

it can easily be found. You will also become well acquainted with the DIMension 

statement, which is used to reserve enough memory space to hold your array. 
After completing this chapter, you will be able to: 


e use the DIMension statement to tell the computer how much space to 

save for your arrays; 

recognize a subscripted variable; 

assign values to subscripted variables; 

use subscripted variables in your programs; 

use one-dimensional arrays to store the values assigned to subscripted 

variables; 

* recall the values of subscripted variables from memory for use in your 
programs. 


1. Until now, you have used only simple variables called numeric or string 
variables. Quite often you have used only one letter, such as: 


A K ip) 
Sometimes you have used a complete word, such as: 
OVER DOWN CODE 
Other times you have used a letter and a $ sign for string variables, such as: 


AS BS cs 
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Here you’ll meet and learn to use a new type of variable called the 
subscripted variable, which consists of a letter followed by a number in paren- 
theses. \ 


Say it: 
7 ( ae “A to sub 3” 
The Its 
variable subscript 


The parentheses tell the computer that this is a subscripted variable. This 
distinguishes it from a simple variable. To review: 


—A(3) is a subscripted variable. 
—A3 is not a subscripted variable. It is a simple variable. \ 
—X(5) is a subscripted variable; X5 is not a subscripted variable. 

—N$(7) is a subscripted variable; N$ is not a subscripted variable. 


Tell whether the following are subscripted variables or simple variables. 
pe Y(25) 


A3 ZS 





Y Z$(7) 


YS X7 


A(3) subscripted Y(25)_ subscripted 
A3 simple Z$ simple 
Y simple Z$(7) subscripted 
YS simple X7 simple 


2. An array is a list of subscripted variables. The variable (such as A or Z$) 
names the array (or list) of data, and the number in parentheses (the subscript) 
labels one element in the array. Thus the computer can store and find one par- 
ticular element in the array when it is given both the variable and its subscript. 


A(B) Each one of these three 

are subscripted variables is an 
element of array A. 

A(2) 


If you know that: 


A() 
A(1) 
A(l2) 


teow 
WF uo 


(a) What are the three subscripts? 





(b) Which element of array A holds the highest value? 
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(a) 0, 1, and 2 
(b) A(0) (the value is 5) 


3. | Once again, to understand how a computer stores information, think of the 
computer’s memory as a series of boxes. Array A, below, is held in the com- 
puter’s memory in the order of its subscripts, 0, 1, 2, 3, 4, 5. 


~—This array holds six subscripted 
variables (elements). Each one is 
designated by its subscript number in 
parentheses. 








Fill in the above memory locations with the values assigned: 


A(0) = 32, A(1) = 25, A(5) = 37, A(2) = AQ) + AQ) 
A(3) = A(O) - AQ), A(4) = AG) + 2 


(32 + 25) 
(32 - 25) 
(7 + 2) 








4.  Subscripted variables can also have variables as subscripts (the material 
within parentheses). For example, the subscripted variable D(X) has the variable 
X as its subscript. Because X is a variable, it can be assigned different values. 


If X 1, then D(X) is D(1). 
If X = 2, then D(X) is D(2). 
(And so on...) 
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ing 





Assume that values have been assigned to variables as shown in the follow- 


boxes. Note that both simple and subscripted variables are shown here. 


D(1) Py: (358) X 
D2) P(2) A 
DG) N(1) B 
D(4) N(2) | 4 | 


Write the value of each variable below. 


D1) = xX = D(B) = 
D(4) = N(X) = D(X) = 
PUY = ey A. D(C) = __. 
N(2) = P(A) = D(A) = 

10 1 -8 

37 12 10 
358 2 37 

3 406 25 
5. One way to enter values into an array in a program is by using a READ 


statement and a data list. Although we have labeled elements in arrays in frames 
2 and 3 starting with the zero-subscripted variable, A(0), not everyone likes to 
start with zero, and you don’t have to. In the programs in this chapter, we will 


not 


16 
20 
30 


46 
58 
69 


98 


use the zero-subscripted variable but will start with 1. For example: 
FOR X = 1 TQ 8 . . 

READ 2 reads eight values 
NEXT X into the array D. 
FOR X = 1 TO 8 


PRINT "D(" X ")=" ii Mean 
NEXT Xx This prints the values 


DATA 29,9,-14,75,43,1.5,14,22 of array D. 


What subscripts will be used for D(X)? 


1, 2, 3, 4, 5, 6, 7, 8 
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TEENIE TEESE 


6. The READ statement at line 20 in the program of frame 5 reads from the 
data list and assigns values to the elements in the array D(X). Note that the array 
starts from D(1), not D(0). Fill in the values that would be printed if the program 
was run. 


D1) ___ D(2) 
 —__—— D(4) 
D(5) D(6) 
D(7) D(8) 
D(1) = 29 D(2) = 0 

D3) = -14 D(4) = 75 
D(5) = 43 D(6) = 1.5 
D(7) = 14 D(8) = 22 


Now RUN the program and check to see if you get these results. 


7. Now, let’s try a program that will turn on some stars. To do this, we will 
first READ ten numbers from a data list and assign them as values of the 
elements in the array S(K). These numbers will be the screen positions for ten 
stars. 


198 REM***READ STAR POSITIONS INTO ARRAY S 

118 FOR K = 1 TO 18 

128 READ S(K) 

13% NEXT K 

148 DATA @,111,222,333,444,555,666,777,888,999 


The array of S(1) through S(10) is now filled with numbers: S(1) = 0, S(2) = 
111, S(3) = 222, and so on up to S(10) = 999. Note that ten (10) is the largest 
subscript that the computer will accept for S(K). 

Next, let’s turn on the stars using the numbers in S(1), S(2), and so on, as 
printing positions on the screen. We will also include a time delay so that you 
can see them coming on, one at a time. 

288 REM***CLEAR SCREEN, THEN TURN ON STARS 
218 CLS 

222 FOR K = 1 TO 16 

238 PRINT @S(K), "*"5 


248 FOR Z = 1 TO 5@@ : NEXT Z 
258 NEXT K 


What next? Let’s include a fairly long delay, and then a repeat from line 
210, like this: 


3308 REM***TIME DELAY, THEN TURN ON STARS AGAIN 
318 FOR Z = 1 TO 2888 : NEXT Z 
328 GOTO 218 
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Now it’s your turn. Rewrite line 220 (and only 220!) so that the stars come 
on in reverse order. That is, we want the star in position S(10) first, then the star 
in position S(9), then S(8), and so on. How about it? 


228 


228 FOR K = 18 TO 1 STEP -1 


8. Now, try something else. OK? Change the number and positions of the 
stars. In other words, in the previous frame, rewrite lines 110, 140, and 220 so 
that stars come on in the following printing positions on the screen. 


Positions? 392, 337, 411, 547, 559, 748, 740 


116 







118 FOR K = 1707 eg de te : 
148 DATA 392,337,411,547,559, 748,748 the Big Dipper? 


229 FOR K = 1 TO 7 ie 


9. | We’ve seen that data can be entered in an array using a READ statement. 
Data for an array can also be entered by means of an INPUT statement. (We 
know that you already know how to INPUT to arrays. Just be patient.) For now, 
let’s see how we’d use an INPUT statement to see some stars. 


198 REM***ENTER NUMBER OF STARS AND STAR POSITIONS 
118 CLS 

128 INPUT "HOW MANY STARS" ; N 
138 FOR K = 1 TON 

148 INPUT S(K) 

15@ NEXT K 











N appears in lines 
120, 130, and 220. 


282 REM***CLEAR SCREEN, THEN TURN ON STARS 
2198 CLS 

228 FOR K = 1 TON 

2308 PRINT @S(K), "*" ; 

248 FOR Z = 1 TO 588 : NEXT Z 

2590 NEXT K 


388 REM***TIME DELAY, THEN TURN ON STARS AGAIN 
318 FOR Z = 1 TO 28986 : NEXT Z 
328 GOTO 219 
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We ran the program for the seven star positions used in the previous frame. Here 
is the first part of the run: 






HOW MANY STARS?7 
2392 — $$ Value of S(1) 
2337 ——_____—____—- Value of S(2) 
2411 
2547 
2559 


2748 ——— Value of S(7) 
2742 


After typing the seventh star position (740), we pressed ENTER. What hap- 
pened next? 





The TRS-80 cleared the screen, then turned on the seven stats, one at a time. 


10. Do you want a galactic encore now? We are pleased to present, for your 
viewing pleasure, a small spiral galaxy. (Very small—only twelve stars.) Let’s say 
we use the program of the preceding frame. Here’s the RUN: 






HOW MANY STARS?12 
248B 
2547 
2485 
2419 
2353 
2358 Oops! What happened? 


?411 Read on. 
2538 


72685 


?673 
?677 
?BS ERROR IN 149 


Remember, ten (10) is the largest subscript that the computer will accept for 
S(K). We got a Bad Subscript (BS) error because we tried to enter a value for 
S(11). To increase the size of the array to include a subscript beyond the element 
S(10), we must use a DIMension statement as described in the next frame. The 
TRS-80 reserves space for the element S(0) even when we don’t use it. So, for ex- 
ample, when we label elements in an array S(1) through S(10), the computer 
saves memory space for eleven elements, because it also includes S(0). 





(a) What is the largest subscript in the program in frame 7 that may be used 


in an array? 
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(b) What is the highest number of elements the computer can hold in this pro- 
gram? 


(a) Ten (10) 
(b) Eleven: S(0)-S(10) 


11. Let’s see how we use the DIMension statement to increase the size of our 
array. To lengthen our array to fit the galaxy program, use this DIMension state- 
ment: 


DIM $(12) 


This means: Save memory for 13 elements in the array 
called ‘‘S,’’ S(O) through S(12). 


Remember, if we didn’t DIMension the array in frame 9, we could only have 
subscripts 0-10 (eleven elements). Since we need twelve stars for our galaxy, 
though, we need to increase the number of subscripts allowed by the computer to 
twelve. 

Note that the DIMension statement must appear in a program before the 
values of an array are assigned. In fact, it is generally good practice to put all 
DIMension statements at the beginning of a program. 

If you add: 105 DIM S(12) to the program of frame 9, will it then assign 


twelve values to the elements of S? 


Yes! The twelve values will be put into S(1) through S(12). 


This was a tricky question. Remember that we aren’t using S(0) in our program. 
The TRS-80 still has memory space for thirteen elements, S(O) through S(12), 
though. 


12. If we wish to use an array with subscripts larger than 10, we must tell the 
computer the /argest subscript it is to permit. To show you how to do this, we’ll 
add a DIM statement to our stars program in frame 9, telling the computer to 
allow up to 100 star positions in the array S. 


Add this statement: 195 DIM s(199) 


Maximum subscript 
permitted in array S. 
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Now we can show you our small spiral galaxy. Just type RUN and... 






HOW MANY STARS?12 
2489 
?547 
?485 
2419 
?353 
2358 
?411 
72538 
2685 
2673 


P677 No error this time. 

?616 ee ee 
After ENTER is pressed, the screen clears 
and the spiral galaxy appears, star by star. 


13. Hmmm... shouldn’t the stars twinkle? Here is the first part of our stars 
program, which will do this: 


190 REM***ENTER NUMBER OF STARS AND STAR POSITIONS 
185 DIM $(18B) 

118 CLS 

128 INPUT "HOW MANY STARS" 3; N 

138 FOR K = 1 TON 

148 INPUT S(K) 

158 NEXT K 


208 REM***CLEAR SCREEN, TURN ON STARS 


218 CLS 
228 FOR K = 1 7T0N 
238 PRINT aS(kK), "*" 


248 NEXT K 


Now it’s your turn. Complete the following part of the program to ‘“‘twinkle”’ a 
star picked at random. To do this, the computer must pick a star position S(1), 
S(2), and so on, up to S(N). Then the computer should turn the star off, and 
thenon... 

322 REM***TWINKLE A RANDOM STAR 

318 T = RND(N) 


328 
33@ FOR Z = 1 TO SB : NEXT Z 


358 GOTO 3198 


328 PRINT @S(T), " "; 
348 PRINT aS(T), "*"; 


Line 320 turns the star located at position S(T) off. Line 340 turns the same star 
on. Try this program with the Big Dipper star positions in frame 9. 
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14. In addition to READ and DIMension statements, strings may also be used 
in arrays as long as they are matched with string variables. 


A$(1) = "KURT" 


or 


String Subscript String 
variable 


You can use a string array in conjunction with a numeric array. This time 
we read both with the same READ statement. 











188 Y$ = "DOLLARS IN THE BANK" 
118 FOR X = 170 4 
128 READ A$(X),N(X) 
132 NEXT xX 


String and numeric 
read in pairs. 


148 CLS 
158 FOR X = 1 TO 4 

168 PRINT AS(X) " HAS" N(X) YS 
178 NEXT X 


Strings and numerics 
alternated in DATA. 





188 DATA "KURT",258,"KIT",158,"PHIL",59@,"MANDY",175 


This program would print out the amount that each person has in the bank. 
Notice that string and numeric values were read in pairs. Therefore the data 
alternated string and numeric values. 

What pair of values is read: 


(a) in the first pass through the loop (lines 110-130)? 
(b) in the second pass through the loop? 

(c) in the third pass through the loop? 

(d) in the fourth pass through the loop? 


(a) KURT 250 
(b) KIT 150 

(c) PHIL 500 
(dq) MANDY 175 


15. The program could have read all the names in first and then the numeric 
values. This would require two READ loops. However, you could have the 
numeric values read in just before the PRINT statement in the loop in lines 
150-170. 
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Rewrite the program in frame 14 so that it will read in all the names /irst. 
Read in the numeric values in the loop (lines 150-170) that contains the PRINT 
statement. 


182 YS = "DOLLARS IN THE BANK" 
118 

128 

136 

148 CLS 

158 FOR X = 1 TO 4 

168 READ 

172 PRINT A$(X) " HAS" N(X) Y$ 
188 NEXT xX 

198 DATA 


118 FOR X = 1 TO 4 


13@ NEXT xX 
16@ READ N(X) 
198 DATA "KURT","KIT", "PHIL", "MANDY",258,1590,598,175 


16. We could have a running file, or record, of each person’s bank account by 
enlarging the program of frame 14. We will make provisions for deposits and 
withdrawals from each account. 


129 CLS Read in names and initial 
118 FOR X = 1704 
129 READ See amounts. 
13@ NEXT x 
New transaction. 
149 FOR X = 1 7T04 
158 PRINT : PRINT A$(X) 
1698 INPUT "HOW MUCH (+ FOR DEPOSIT, - FOR WITHDRAW)"; M 
172 N(X) = N(X) + M 
188 NEXT x 


198 FOR W = 1 TO 1929 : NEXT W: CLS Time delay and clear 







268 FOR X = 1 TO 4 f screens 

218 PRINT AS(X) " NOW HAS $" N(X) i 
Quotes ate) ob NEXT X Print latest results. 
optional 
in DATA 







Time delay—then go back. 


238 FOR W = 1 TO 1988 : NEXT Ww 
statements. 


248 GOTO 148 








388 DATA” KURT ,258, KIT ,15@, PHIL ,58@, MANDY ,175 


If the following inputs are made, show the final printed accounts. 


Ist Round 2nd Round 3rd Round 
149.10 -125 -50 
25.00 75 25 
17.23 -320 14 
-20.10 45.20 -35 











KURT §___ SSS PHIL $ 
KIT $ MANDY $ 


KURT $224.1 PHIL $211.23 
KIT $275 MANDY $165.10 


17. The program of frame 16 allows only four accounts to be used. It should 
be more general so that you can change the DATA statement for any number of 
people that you want. You can use an INPUT statement to tell the computer how 
many accounts are being handled. 


165 INPUT "HOW MANY ACCOUNTS"; N 


(a) What lines in the program would have to be changed if line 105 is added? 


(b) Show how you would change them: 


(a) lines 110, 140, and 200 


(b) 119 FOR x = 1 TON 
148 FOR X = 1 TON 
289 FOR X = 1 TON 


18. In the last few frames (14-17), we used string and numeric variables with 
READ and DATA statements. Now here’s your chance to use them, too! You, 
the chief programmer aboard the starship Horadu VII, are looking at the long- 
range scanner and see three star systems: Deco, Mala, and Pida. You also see 
three starbases: Wora, Nuru, and Seda. The distances between star systems and 
starbases (in warp values) are: 


Distances (Warp Values) 


Wora Nura Seda 
Deco 2 3 5 
Mala 1 5 7 
Pida 8 6 2 


Write a program to: 


(a) READ the name of the star systems into an array SS$. 

(b) READ the name of the starbases into an array SB$. 

(c) READ the distances into a one-dimensional array DIST. 

(d) PRINT a table of distances on the screen like the table shown above. 
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Here is a program to perform this task. Unfortunately, portions of the pro- 
gram were erased by overexposure to zo/uta radiation from the star system Mala. 
Since you are the chief programmer of Horadu VII, the captain has assigned to 
you the task of completing the program. So, put up the zo/uta shields and fix the 
program. 

182 REM***wARP VALUE DISPLAY 


118 REM***FOR STARSHIP HORADU VII 
128 REM***READ STAR SYSTEM NAMES 





13@ FOR N = 1 TO 3 







indicates where the zoluta 


P1428 READ radiation damage has occurred. 


152 NEXT N 
169 REM***READ STAR BASE NAMES 
178 FOR N = 1 TO 3 


189 READ 
198 NEXT N 
299 REM***READ NINE WARP VALUES 
218 FOR N = 1 TO 9 
P2208 READ 
238 NEXT N 
248 REM***DISPLAY THE TABLE 
258 CLS 


26@ PRINT TAB(4) "DISTANCES(WARP VALUES)" 
278 PRINT TAB( 4)  '* xR oR AOR OR dk 


—2898 PRINT TAB(7) $(1) TAB(13) $(2) TAB(19) $(3) 
298 PRINT TAB(7)"****"7TAB(13)"****"TAB(19)"*FH*" 
382 FOR N = 1 TO 3 


310 PRINT $(N)TAB(8) (3*N - 2)TAB(14) (3*N - 1)TAB(28) (3*N) 
328 PRINT 
338 NEXT N 
3498 END 
1882 DATA DECO, MALA, PIDA 
19108 DATA WORA, NURA, SEDA 
1628 DATA 2,3,5,1,5,7,8,6,2 


146 READ SS$(N) 

18 READ SBS$(N) 

228 READ DIST(N) 

288 PRINT TAB(8)SB$(1)TAB(13)SB$(2)TAB(19)SB$(3) 

318 PRINT SS$(N)TAB(8)DIST(3*N - 2)TAB(14)DIST(3*N — 1)TAB(20)DIST(3*N) 


Your program may be different, and that is OK! What’s your next warp vector? 
Pida! Good, we’ll see you back at Nura in fifteen stardates. 


19. There may be times when you will want to set all the elements of an array 
equal to zero. In other words, you may want to use the same array more than 
once in a program. You could clear out any old values that may be left from a 
previous solution with three program lines similar to these: 


4@@ FOR K = ® TO 15 Clears the elements 
a8 CET AGS) =' 2 A(0) through A(15). 


428 NEXT K 
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You might also want to clear only certain elements in your array. Suppose 
we want to clear only the even subscripted elements [A(O), A(2), A(4), etc.] in the 
above array A(K). Replace line 400 above to clear only the even elements of 
A(K). 


4B 





498 FOR K = @ TO 15 STEP 2 (This is the easiest way we can think of.) 


20. The following program assigns the values 1 through 15 to fifteen elements 
of the array A. It prints the array across the top of the screen in a horizontal 
row, starting with A(1) on the left and ending with A(15) on the right. 


123 45 67 8 9 10 11 12 13 14 «#15 


A time delay is used to let you see the results. Then the program puts a 
zero in each even subscripted element of the array. 


103 05 0709 0 11 0 13 0 #15 
The program: 


188 CLS 

185 DIM A(15) 

11@ FOR X = 1 TO 15 

126 A(X) = X ; ; 

139 PRINT a9 + 3*X, A(X), Assign and print the array. 
149 NEXT X 





15@ FOR W = 1 TO 19868 : NEXT X 

16@ FOR K = 1 TO 15 STEP 2 

178 = LET A(K) = @ Now zero the even elements. | 
188 NEXT K | 
198 FOR X = 1 TO 15 . 

208 PRINT aS + 3*x, A(X) Print the new array. 

218 NEXT X 


The program prints the original array once and then zeros the even elements 
once. Can you add one line to make it repeat this alternating cycle over and over 
again? BE CAREFUL! Remember that you can dimension an array only once. 


What line would you add and what would it contain? 


228 GOTO 118 (This is one way. If yours works, HURRAY!) 
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21. Let’s now suppose that you are the treasurer of a computer club that has 
monthly membership dues of $1.50. You are using your TRS-80 to review the 
payment of members. First you write this program: 


182 DIM A$(28).D(28)3: D(B) = @ 
118 FOR M = 1 TO 26 i; Read paid dues 


128 READ A$(M), D(M) 
(36 | OERY = Ble? + DIM and calculate total. 


148 NEXT M 


152 PRINT "TOTAL ASSESSED = $" 29*12*1.56 
162 PRINT "TOTAL COLLECTED = $" D(S) 
178 PRINT "TOTAL UNCOLLECTED = $" 29*12*1.58 - D(@) 


522 DATA J.ABLE ,15, A.BAKER ,18, B.CABLE ,13.58, C.DUNKS ,12 

518 DATA D.DUNKS ,3, E.EVERS ,75.8, F.FINK ,16.58, G.GOOD ,18 

522 DATA H.HENRY ,18, I.-IRVING ,16.5@, J.JONES ,18, K.KANE ,16.59 
532 DATA L.LEMON ,4.58, M.MARKS ,15, N.NOBLE ,18, O.OTTO ,18.58 
548 DATA P.PARKS ,16.5@, R.RIOT ,15, S.SINGER ,12, T.TREND ,13 


When the program is run, you find out: 


TOTAL ASSESSED = $ 368 Trailing zeros 
TOTAL COLLECTED = $ 277.5 
TOTAL UNCOLLECTED = $ 82.5 are dropped. 


Determined to rectify the missing money, you decide to add to the program 
so that it will print out the amount that each person owes. Complete the lines 
below that would do this: 








188 RESTORE 







Did you forget this one? 


199 FOR M = To We want to use the data list again. 


282 READ A$(M), D(M) 
219 OWE = = 


228 PRINT AS(M)3; " OWES" 





238 NEXT M 


2128 OWE = 18 - D(M) 
228 PRINT AS(M)3; " OWES"; OWE 


22. You may use a variable in a DIMension statement to assign the reserved 
memory for an array. 

DIM A(N) DIM AS(M) DIM B(K + 2) 

If you do this, the DIM statement cannot be at the beginning of the program. 


The variable must be assigned a value before the DIMension can be assigned. For 
example: 


This will work: 188 INPUT N 
118 DIM A(N) 
This will not work: 199 DIM A(N) The value for N 


118 INPUT must be given first. 
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This program will work: 


128 CLS 
118 INPUT"N = "; N~<~———————-Give N first. 
128 DIM A(N)+——______ ran DIM A(N). 


138 A(B) = B 
149 FOR xX = 1 TON 
152 INPUT A(X) 
168 A(Z) = A(B) + A(X) 
178 NEXT X 
189 PRINT "THE SUM OF" N “ELEMENTS IS" A(®) 
If 25 is entered at line 110, what are the values that can be used for the 


subscripts of A(N)? _____ through 


0 through 25 (26 elements all together) 


23. The program in frame 22 allows you to choose how many numbers you 
wish to add and then sets that value equal to N. It next dimensions array A for 
the value of N. The numbers to be added are stored in elements A(1) through 
A(N). Element A(0) is used to hold the sum of the inputs. 

Run the program three times with these inputs: 


Run 1: N =9 A(I) through A(N):  1,2,3,4,5,6,7,8,9 


Run 2; N = 5 A(I) through A(N): 5,10,15,20,25 

Run 3: N = 25 A(1) through A(N): = 1,2,3,4,5,. . . 22,23,24,25 
What totals did you get for: 

(a) Run 1 

(b) Run2 

(c) Run 3 


(a) 45; (b) 75; (c) 325 


24. Now, add a FOR-NEXT loop to the program of frame 22 that will print 
the complete array. Then rerun the program with whatever data you desire. 
198 FOR X = 


288 
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198 FOR X = 1 TON (or 0 to N) 


295 PRINT A(X) (Format the PRINT statement any way you wish.) 
218 NEXT X 


25. Let’s try another program. Our computer club is having its annual open 
house and is selling coffee, pop, and donuts. You, our club treasurer, are on the 
job again. You want to program your TRS-80 to keep track of sales. You decide 
to use arrays to keep track of the sales—coffee sells for 40¢, pop for 35¢, and 
donuts for 25¢—using C (for coffee), D (for donuts), and P (for pop). You ex- 
pect sales to stay under 100 for each item. Complete this program: 


188 CLS 
118 DIM C(18@), D(19B), P(189) 
128 C(1) = @ : O(1) = @ +: P(1l) = G 


+ A$ =|C for coffee 


132 INPUT A$ 

14@ IF A$ = "C" THEN C(1) = C(1) + 1 : GOTO 138 D for donuts 
158 IF AS = "D" THEN D(1) = D(1) + : GOTO 138 

168 IF AS = "P™ THEN P(1) = P(1) + 1 : GOTO 138 P for pop 
178 IF AS = "DONE" GOTO 228 

182 PRINT "WHAT IS THAT INPUT AGAIN?"; GOTO 138 

288 CLS 


218 c(@) = c(1)*.49 


228 D(8) 


230 P(@) 


24@ PRINT "CUPS OF COFFEE SOLD ="; 
258 PRINT “COFFEE RECEIPTS ="; 


268 PRINT "DONUTS SOLD ="; 








278 

288 

298 

228 D(@) = D(1)*.25 

238 P(G) = P(1)*.35 

248 PRINT “CUPS OF COFFEE SOLD ="; C(1) 
250 PRINT "COFFEE RECEIPTS ="; C(S) 
268 PRINT “DONUTS SOLD ="; D(1) 

278 PRINT “DONUT RECEIPTS ="3 D(@) 
288 PRINT "POP SOLD ="; P(1) 

2998 PRINT "POP RECEIPTS ="; P(@) 


26. Suppose you want to check the receipts without disturbing the current 
counts of coffee, pop, and donuts in the program in frame 25, and you don’t 
want to stop the program. Can you add one line to the program so you could do 
this? (Hint: Where should the computer go from line 290?) 


382 
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382 GOTO 136 


(This sends the program back for a new value of A$. C(1), D(1), and P(1) have 
not been disturbed. The total receipts will be recounted the next time DONE is 


input.) 


You have now completed this chapter and are ready to go to the Self-Test, 


which follows. 


SELF-TEST 


Try these Self-Test exercises to show how much you’ve learned. 


1. Put a check before each subscripted variable. 


—— (a) x3 —_(e) (51) 
___ (b) xy(2) ___ (f) ks 

—— (ce) 4«3) —— (g) 6(k) 
___ (ad) Ht _(h) sCK(?) 


2. Name the elements of the array dimensioned by: 


DIM E(4) 


3. IfA= 2, B = 5, and C = 7, fill in the values for the array below from 


these facts. 


K(@) =B-A 

K(B - A) =C 
K(2*A) = B 

K(A) = B+C 

K(1) = K(2) + K(3) 








4. Study this program. 


198 K(G) = @ 

118 INPUT N 

128 FOR X = 1 TON 

1328 READ K(N) 

148 K(@) = K(B) + KCN) 

158 NEXT X 

168 CLS : PRINT "SUM = "3 K(@) 
288 DATA 1,2,1,2,1,2,1,2,1,2,1,2 
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If 6 is entered for N when the program is run, what will be printed? 


Suppose 12 is entered for N in a run of the program in question 4. 
(a) Will the program print the sum? 
(b) If so, what will the sum be? 

If not, what message will be printed? 


Modify the banking program in frame 16 so that a message is printed if the 
account shows a negative balance. Here is a typical response to a negative 
balance. 





PHIL HAS A NEGATIVE BALANCE OF $ 15.52 
PLEASE MAKE A DEPOSIT AS SOON AS POSSIBLE! 


Put a check for a negative balance between lines 170 and 180. If a negative 
balance is found, send the program to a subroutine at line 500 to print the 
message. 


175 





528 

















Write a program that simulates the roll of a single six-sided die 500 times. 
Use an array to keep the total number of times each side comes up. 
Remember (or look back to review) how a random number is generated. 
Have the computer print the results, which would be something like this: 
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Answers to Self-Test 


(b) xyc2) (ce) 403) (e) H(51) (h) K(7) (frame 1) 


E(B) E(1) E(2) E(3) E(4) (frame 11) 





(frames 3, 4) 


SUM = 9 (frames 3-6) 

(a) No (no DIM statement) 

(b) 78S ERROR IN 139 (10 is the highest subscript available) 
(frame 10) 


175 IF N(X) < @ GOSUB 588 

522 PRINT AS(X) "HAS A NEGATIVE BALANCE OF $" N(X) 

518 PRINT "PLEASE MAKE A DEPOSIT AS SOON AS POSSIBLE!" 
528 RETURN 


(frame 16) 
Here is our program. Once again, yours may be different. 


122 CLS 
118 FOR X = 1 TO 6 


128 G(x) = 6 Set totals to zero. 
138 NEXT xX 


148 PRINT @542, "ROLLING" 
158 FOR T = 1 TO 588 $00 random throws. 
168 N = RND(6) 
178 G(N) = G(N) + 1 
188 NEXT 
PRINT results. 
198 CLS 
208 FOR X = 1 TO 6 
218 PRINT X3 G(X) 
22@ NEXT X 


(frames 21, 22, 25) 














CHAPTER TEN 


Multidimensional Arrays 








In Chapter 9, you used one-dimensional arrays and were introduced to the 
DIMension statement. In this chapter, you will expand your capability with 
arrays by learning how to use multidimensional arrays. 

We will extend single-subscripted variables to double-subscripted variables 
in order to understand two-dimensional arrays. After you have become familiar 
with two-dimensional arrays, we will move on to those with three dimensions. 
Whereas one-dimensional arrays are referred to as /ists, multidimensional arrays 
are called tables or matrices. 

When you complete this chapter, you will be able to: 


recognize variables with two, or more, dimensions; 

assign values to multisubscripted variables; 

use the arrays that you have created in programs; 

use the DIMension statement to tell the computer how large your 
tables will be. 


1. Two subscripts are used to assign values to the elements of a two- 
dimensional array. You can think of a two-dimensional array as a table made up 
of rows and columns. One subscript assigns the element’s row and the other 
assigns its column. 


An element of a two-dimensional array 
A(4,2) 
comma 


Row 4 Column 2 
1st subscript 2nd subscript 


Here is a table that contains A(4,2) among its elements. What value has 


been assigned to A(4,2)? 
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Rows 


A(4,2) = 13 


Table for A(K,L) 


Columns 





2. Array A(K,L), used in frame 1, is filled with twenty elements in this order: 


Columns 1-4 


| 
A(I,1) A(1,2) A(1,3) A(,4) 
A(2,1) A(2,2) A(2,3) A(2,4) 


Rows A(3,1) A(3,2) A(,3) AG,4) 


A(4,1) A(4,2) A(4,3) A(4,4) 
AG,1) AG,2) AG,3) AG,4) 


Using the table in frame 1, name the values held by each of these elements. 


AG,3) = 
A(1,2) = 
A(2,4) = 


A(2,1) = 
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3. Like a single-subscripted variable, a double-subscripted variable is a name 
for a memory location in the computer. It is convenient to think of these loca- 
tions in terms of rows and columns. Think of the memory ‘‘boxes’’ arranged as 
in this example. 


Array A(I,J) 


HDL | 4a] Ha.3__] 
H(2,1) H2,2[ | He 3){ | ' 


Fill in the boxes above with the values assigned by the following program: 


198 LET H(1,1) = 12 
118 LET H(1,2) = 14 
122 LET H(1,3) = 16 
138 LET H(2,1) = H(1,1) + H(1,3) 
149 LET H(2,2) = H(2,1) - H(1,2) 
15@ LET H(2,3) = @ 


HOD (12] -Ha,2)[14 ] —-Ha,3)[_16_| 
HQ) [28] H@2[ 14] He,3)[_0 | 


4. You could also READ in the values from a DATA statement using a nested 
FOR-NEXT loop. 


128 REM**READ ROW ONE THEN ROW TwO** 
11@ FOR I = 1 TO 2 

128 FOR J = 1 TO 3 

136 READ A(I,J) 

142 NEXT J 

158 NEXT I 

208 DATA 11,12,13,14,15,16 


Fill in the array values as they will be assigned when the program is run. 


A(1,1) A(1,2) A(1,3) 
A(2,1) A(2,2) A(2,3) 


AQ,1)(_1i_] = Ad,2)(_12_] —AG,3)|_13_| 
AQ) 14 | A@2)L15 | A@,3)|_ 16 _ 
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5. The secretary of your computer club is conducting a survey of members to 
see the kinds of computer equipment owned. He knows that the most popular 
computers are the BLAST I and the GOFUR II. He also wants to determine the 
ratio of female/male members in the club. He decides to tabulate the data on his 
TRS-80. 

The questionnaire looks like this: 








1. 





Check the brand of computer that you own. 











1______—sd&BLAST I 
2 —___. GOFUR II 
3 OTHER 
4____Ss NONE 


2. Check your sex. 
1 
2 





FEMALE 
MALE 





Since there are two questions, the secretary would like to set up a two- dimen- 
sional array to handle the results of the questionnaire. He decides to use C for 
computer and S for sex. 


65S 
4 possible answers 2 possible answers 
for question 1 for question 2 
(1,2,3,4) (1,2) 


Thus a reply of 1,2 would mean a BLAST I computer is owned by a male. 








What would a reply of 2,1 mean? — SSS 


A GOFUR II is owned by a female. 


6. The secretary then sits down to write the program. But first, he tries to for- 
mulate the problem. Since there are four possible answers to question 1, he 
visualizes four rows in his data table. 


Row 1 BLAST! 
Row 2. GOFUR II 
Row 3 OTHER 
Row 4 NONE 
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Since there are two possible answers to question 2, he visualizes two columns in 
his data table. Using numbers 1, 2, 3, 4: 


FEMALE MALE 

BLASTI AQ,1) [| [ 
GOFUR II a [ 
OTHER nal 4 
NONE Cd C4 


Using the array A(C,S) and the numbers 1, 2, 3, 4, he labels each possible 
reply. Fill in the blanks in front of the boxes above with the correct element 
labels (the first one is given). , 


FEMALE MALE 

BLASTI A(1,1) [| A(,2) [|_| 
GOFURII AQ,1) [___| A(2,2) [|__| 
OTHER A@G,1) [__| AG,2) [|__| 

NONE A4I) [| AG2) [| 


7, To make sure that all elements of the array are set to zero at the beginning 
of the program, the secretary writes these lines: 


198 REM**FILL ELEMENTS WITH ZERO** 





118 FOR S = 1 TO 2 
128 FOR Cc = 1 TO 4 
132 A(c,S) = @ 


148 NEXT C 
15@ NEXT S 


In what order would the computer fill the array with zeros? 





I 5 

2 6 

3 7 

4 8 

1 A(i,1) 5 A(1,2) (Row is changed in the inside loop 
2 A(2,1) 6 A(2,2) this time.) 

3 AG,1) 7 AG,2) 

4 A(4,1) 8 A(4,2) 
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8. 


222 
216 
220 
232 
246 
258 


(a) 


Now that the initialization is done, the secretary tallies the votes this way: 


REM**COUNT EACH VOTE** 
INPUT N<~———___________ Number of replies 
FOR X = 1 TON 
READ C,S 
A(C,S) = A(C,S) + 1 
NEXT X 


If a response is checked ‘‘NONE”’ for computer and ‘‘MALE”’ for sex on 
the questionnaire in frame 5, what would be the value of: 


(a) 
(b) 


9. 


After the responses have been read in and tallied, the secretary prints out 


the results this way: 


386 
318 
326 
339 


(a) 


REM**PRINT THE RESULTS** 
FOR C = 170 4 


PRINT "AC" C ",1) =" A(C,1),"AC" C 7,2) =" A(C,2) 
NEXT C 
How many elements (columns) of the array will be printed on each line 


(row)? 


How many lines (rows) will be printed? 


2 columns per line 

4 lines 

Then the replies are supplied in the DATA statements at lines 400-420. 
REM**DATA FROM REPLIES** 

DATA 1,1,2,2,1,2,2,1,352,4,2,1,3,1,1,4,1 

DATA 25163; 1025262011401 61605 2023 Tele2s4 

DATA 1529-4) 2 5352545 be 2s2nlglsda2 

How many replies were received according to the data list? 


How many replied that they owned no computer? 


(a) 25; (b) 5 
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11. Here is the complete program. Enter it in your TRS-80 and run it. Then fill 
in the answers to the questions below. 


198 REM**FILL ELEMENTS WITH ZERO** 
118 FOR S = 1 TO 2 

1228 FOR C = 170 4 

138 A(C,S) = @ 

148 NEXT C 

158 NEXT S 


298 REM**COUNT EACH VOTE** 

218 INPUT N<———————___--— Use 25 here when you run. 
228 FOR X = 1 TON 

2308 READ C,S 

242 A(C,S) = A(C,S) + 1 

258 NEXT X 


329 REM**PRINT THE RESULTS** 

318 FOR C = 1704 

328 PRINT "AC" C ",1) =" A(C,1),"AC" C ",2) =" A(C,2) 
33@ NEXT C 


492 REM**DATA FROM REPLIES** 

41B DATA 14,142,2515252515342441241,25151,4)1 
428 DATA 2414351121242 5154515151,2,251,1,2,51 
43D DATA 1,2,4,2,35254,1,2,2,1,1,1,2 

Fill in your results: 

AQ,1) = —__ A(1,2) = ____ 

A(2,1) = —__ A(2,2) = —_____ 

A@G,1) = ___— A@G,2) = —_—_ 

A(4,1) = ——_ A(4,2) = —___ 

A(i,1) = 5 A(1,2) = 4 

A(2,1) = 4 A(2,2) = 4 

A(3,1) = 1 A(3,2) = 2 

A(4,1) = 3 A(4,2) = 2 


12. The secretary had trouble interpreting the array printed in frame 11. 
Perhaps you can help. Study the printed results and answer the following ques- 
tions: 


(a) How many female members replied? 
(b) How many male members replied? 
(c) How many members own BLAST I computers? 


(d) How many female members own computers? 
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(e) How many male members own computers? 


(f) Any other interesting results? 


(a) 13 A(1,1) + A(2,1) + A@G,1) + A(4,1) 
(b) 12 A(1,2) + A(2,2) + A(3,2) + A(4,2) 
(c) 9 A(1,1) + A(1,2) 

(d) 10 A(1,1) + A(2,1) + A(3,1) 

(e) 10 A(1,2) + A(2,2) + A(3,2) 

(f) Answers may vary widely! 


13. The DIM statement for a two-dimensional array is similar to that for one 
dimension. However, two subscripts must be given. The first subscript designates 
the maximum number of rows, and the second subscript designates the maximum 
number of columns. For example: 


DIM B(25,2) 
Array Maximum Comma Maximum 


name number number of 
of rows columns 


(a) How many subscripts does a subscripted variable have for a two- 


dimensional array? 
(b) What do the subscripts designate? 








(a) two 
(b) the maximum number of rows (the left value) 
the maximum number of columns (the right value) 


14. Our computer club secretary has created a new program to display more 
detailed results of the club survey. He has made a one-dimensional array for the 
club names, which he dimensioned: 


DIM AS$(25) 25 club members 
Then he set up this two-dimensional array for the data: 
DIM L(25,6) 


25 club *6 survey 
members answers 
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He wanted to create a table something like this: 
BLASTI GOFURII OTHER NONE FEMALE MALE 


Name 1 1 0 0 0 1 0 
Name 2 0 1 0 0 0 1 
Name 3 1 0 0 0 0 1 
(etc.) 


In the first section of the program, he would like to put zeros in all the 
elements of array L. Complete this section. 


198 REM**SET STRING SPACE AND ZERO ARRAY ** 


118 CLS : CLEAR 2686 i s 
String space reserved for names 


128 DIM L(25,6), A$(25) 


138 FOR X = <~——__—_—_—_—__ Rows 
14g FOR Y = ~——_— Columns 
158 L(X,Y) = @ 


166 NEXT 


178 NEXT 
13@ FOR X = 1 TO 25 
142 FOR Y = 1 TO 6 


15. Inthe second section of the program, the secretary wants to input the 
names. He also wants to place a one in the correct elements for computer owned 
and sex. Complete this section. 


208 REM**GET NAME AND RESPONSE** 


218 FOR K = 





228 INPUT "NAME"; 
238 READ 


248 L(K,C) 


Ul 
rors 


258 READ 


268 L(K,S) 


i 
» 


278 NEXT 


218 FOR K = 1 TO 25 

220 INPUT "NAME"; AS(K) 
238 READ C 

258 READ S 

278 NEXT K 


i 
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16. Now he is ready to write the last section to print out the table. This is how 
he did it. 


329 REM**PRINT THE TABLE** 

318 CLS 

328 PRINT "NAME" TAB(8) "BLAST I" TAB(16) "GOFUR II" TAB(25) 
"OTHER" TAB(31) "NONE" TAB(36) "FEMALE" TAB(43) "MALE" 

33@ FOR K = 1 TO 25 

348 PRINT A$(K) TAB(11) L(K,1) TAB(18) L(K,2) TAB(26) L(K,3) 

TAB(31) L(K,4) TAB(37) L(K,5) TAB(43) L(K,6) 
35@ NEXT K 
362 GOTO 359 


(a) How many rows of information will be printed by this section of the pro- 
gram? 


(b) Will it all fit on the screen at one time? 


(a) 26; (b) no 


17. Since the table would not fit on the screen, the secretary split the printout 
into two parts using subroutines. Study this modification below. Look at the 
hints, and then complete lines 310, 320, 340, and 350 so that the correct 
subroutines will be called. 


388 REM**PRINT THE TABLE** 


318 GOSUB —_____ To print the column headings 

328 GOSUB ______ To print first half of table 

338 INPUT "PRESS 'ENTER' TO CONTINUE"; R 

348 casuy ———_— To print the headings again 

359 GOoSUB ————__ To print last half of table 

368 INPUT "DO YOU WANT TO SEE THE FIRST PART AGAIN (Y OR N)"' BS 
378 IF LEFT$(B$,1) = "Y" THEN 388 

389 END 


12928 REM**PRINT HEADINGS** 

1818 CLS 

1826 PRINT "NAME" TAB(8) “BLAST I" TAB(16) "GOFUR II" TAB(25) 
"OTHER" TAB(31) "NONE" TAB(36) "FEMALE" TAB(43) "MALE" 

1238 RETURN 


2828 REM**PRINT FIRST HALF OF TABLE** 

2018 FOR K = 1 TO 13 

2828 PRINT A$(K) TAB(11) L(K,1) TAB(18) L(K,2) TAB(26) L{(k,3) 
TAB(31) L(K,4) TAB(37) L(K,5) TAB(43) L(K,6) 

2838 NEXT K 

2948 RETURN 


3989 REM**PRINT LAST HALF OF TABLE** 

3818 FOR K = 14 TO 25 

3020 PRINT A$(K) TAB(11) L(K,1) TAB(18) L(K,2) TAB(26) L(K,3) 
TAB(31) L(K,4) TAB(37) L(K,5) TAB(43) L(K,6) 

3232 NEXT K 

3948 RETURN 
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318 GOSUB 1888 
328 GOSUB 2896 
342 GOSUB 1982 
358 GOSUB 3898 


18. The secretary’s final program, with your modifications, is now ready to run 
except for the data that will be used. It can be inserted in lines 500 through 530. 
It is the same except that: 


502 REMARK**DATA FROM REPLIES** 

518 DATA 1,5,2,6,1,6,2,5,35654,6,1,6,1,554,5 
528 DATA 2,5,3,5.2,642555455515542,6,1,5,255 
532 DATA 1,6,4,6,3,64445552,6,1,5451,6 


Compare this data with that used in the program in frame 11. 
(a) All Female 1’s have been changed to 
(b) All Male 2’s have been changed to 


(a) 5’s; (b) 6’s 


19. Here is the list of club members. Run the program and input the names in 
the order shown. 


1. ABLE 10. IRVING 19. SAMPLE 
2. BAKER 11. JONES 20. TREND 
3. CANDY 12. KANE 21. URSA 

4. C.DUNKS 13. LEMON 22. WVRUHM 
5. D.DUNKS 14. MARKS 23. WEST 

6. EVERS 15. NOBLE 24. YATES 
7. FINK 16. OTTO 25. ZEBB 

8. GOOD 17. PINKS 

9. HENRY 18. RIOT 


Fill in the results of the run. 
NAME BLAST I GOFUR II OTHER NONE FEMALE MALE 


ABLE 
BAKER 
CANDY 
C.DUNKS 

From D.DUNKS 

Ist EVERS 

half FINK 
GOOD 
HENRY 
IRVING 
JONES 
KANE 

__ _-LEMON 





em 
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From PINKS 
2nd RIOT 
half SAMPLE 


BLAST I GOFUR:II OTHER NONE FEMALE MALE 


ABLE 1 0 0 0 1 0 
BAKER 0 1 0 0 0 1 
CANDY 1 0 0 0 0 1 
C.DUNKS 0 1 0 0 1 0 
D.DUNKS 0 0 1 0 0 1 
EVERS 0 0 0 1 0 1 
FINK 1 0 0 0 0 1 
GOOD 1 0 0 0 1 0 
HENRY 0 0 0 1 1 0 
IRVING 0 1 0 0 1 0 
JONES 0 0 1 0 1 0 
KANE 0 1 0 0 0 1 
LEMON 0 1 0 0 1 0 
MARKS 0 0 0 1 ] 0 
NOBLE 1 0 0 0 1 0 
OTTO 0 1 0 0 0 1 
PINKS 1 0 0 0 1 0 
RIOT 0 1 0 0 1 0 
SAMPLE 1 0 0 0 0 1 
TREND 0 0 0 1 0 1 
URSA 0 0 1 0 0 1 
VRUHM 0 0 0 1 1 0 
WEST 0 1 0 0 0 1 
YATES 1 0 0 0 1 0 
ZEBB 1 0 0 0 0 1 
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20. You could add another section to the program to print the totals of each 
column. It would have a FOR-NEXT loop something like this: 


489 
419 
428 
430 
448 
458 
468 
478 
482 
498 


REMARK**PRINT TOTALS** 


CLS 
FOR C = 1 TO 6 

T=28 

FOR K = 1 TO 25 

T= T + L(K,C) 

NEXT K 

PRINT "ITEM" C "TOTALS" T 
NEXT C 
END 


Delete line 380 from the old program. The END is now at line 490. 

After the second half of the table, shown in frame 19, is printed, the com- 
puter asks if you want to see the first part again. If your answer is NO, lines 
400-490 will be executed. Show what it will print. 





ITEM 
ITEM 
ITEM 
ITEM 
ITEM 
ITEM 


TOTALS 
TOTALS 
TOTALS 
TOTALS 
TOTALS 
TOTALS 


me OW wo oO 


NW 
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21. Our secretary was still not satisfied with his program. What he really wants 
to see is a list of each member, the member’s computer, and the member’s sex. 
He decides to add another section to his program to do this. 


688 REM**PRINT INDIVIDUAL DATA** 

618 CLS 

62@ FOR K = 1 TO 25 

638 PRINT AS " OWNS "; 

649 FOR C = 1 T0 4 

652 IF L(K,C) = 1 THEN GOSUB 4822 
668 NEXT C 

67 PRINT "COMPUTER AND IS A "3 

682 FOR C = 5 TO 6 

698 IF L(K,C) = 1 THEN GOSUB 5828 
728 NEXT C 

718 INPUT "PRESS ‘ENTER’ FOR ANOTHER NAME"; R 
728 NEXT K 

73 END 


4928 REM**PRINT COMPUTER DATA** 


4918 IF C = 1 THEN PRINT "A BLAST I "3 
4828 IF C = 2 THEN PRINT "A GOFUR II "; 
4830 IF C = 3 THEN PRINT "SOME OTHER "; 
4848 IF C = 4 THEN PRINT "NO "; 


4858 RETURN 

5826 REM**PRINT SEX DATA** 

5816 IF C = S THEN PRINT "FEMALE." 

5@28 IF C = 6 THEN PRINT "MALE." 

5938 RETURN 

Remove the END statement from line 480. Change line 480 to: 
488 INPUT "PRESS 'ENTER' TO CONTINUE"; R 


Run the program again. Then fill in the information that follows from your 
screen display. 


ABLE OWNS $$ COMPUTER AND IS A 
BAKER OWNS COMPUTER AND IS A 
LEMON OWNS COMPUTER AND IS A . 
TREND OWNS COMPUTER AND IS A 
URSA OWNS COMPUTER AND IS A 


ABLE OWNS A BLAST I COMPUTER AND IS A FEMALE. 
BAKER OWNS A GOFUR II COMPUTER AND IS A MALE. 
LEMON OWNS A GOFUR II COMPUTER AND IS A FEMALE. 
TREND OWNS NO COMPUTER AND IS A MALE. 

URSA OWNS SOME OTHER COMPUTER AND IS A MALE. 
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22. We have many versatile people in our computer club. Cliff Sample is in 
charge of keeping track of all the spare parts for our computers. Each drawer of 
a cabinet is separated into many compartments. Cliff decided that he could write 
a program for keeping inventory of all the club’s resistors. He decided to think 
of each drawer and its compartments as being composed of rows and columns 
like a two-dimensional array. 


3 columns 
7 rows Two Dimensions 


DIM S(7,3) 





Rows Columns 


But the cabinet has 6 drawers. He needs another dimension. 


& Gers Three Dimensions 


high 





Rows Columns Tiers 


Why not use a three-dimensional array to keep track of the spare resistors? 
(a) Each drawer has how many compartments? 
(b) How many drawers are in the cabinet? 


(c) How many elements will there be in Cliff’s array? 


(a) 21; (b) 6; (c) 126 


23. Cliff has the first drawer filled with resistors varying from 1 ohm to 300 
ohms in size. These are arranged in compartments as follows: 


Resistors 1 to 99 ohms in column 1 
Resistors 100 to 199 ohms in column 2 
Resistors 200 to 299 ohms in column 3 
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Therefore, all the resistors under 300 ohms in size are placed in drawer 1. 


S(R,C,1) 
Rows Columns Drawer 
1-7 1-3 1 of 6 


We now know how Cliff classifies his resistors by column in drawer 1. A 
33-ohm resistor would be stored in: 


S(R, \ 1) 

Row Be ls 1 Drawer 1 
(we don’t (1-99) (1-299) 
know yet) 


Give the column and drawer number for these resistors: 
280 ohms in S(R,__,__) 
120 ohms in S(R,___,__) 

20 ohms in S(R,____,___) 


280 ohms in S(R,3,1) 
120 ohms in S(R,2,1) 
20 ohms in S(R,1,1) 


24. The resistor values in drawer 1 are further broken down by rows as follows: 


Column 
1 2 3 
1 1-14 100-114 200-214 
2 15-29 115-129 215-229 
3 30-44 130-144 230-244 
4 45-59 145-159 245-259 
5 60-74 160-174 260-274 
6 75-89 175-189 275-289 
7 90-99 190-199 290-299 
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Using the above table, give the element that would designate the location of 
each of the following resistors. 


Example: 150 ohms in S(4,2,1) 


/ 











Row Drawer 
Column 
80 ohms in S(___,__,___) 
220 ohms in S(___, a 
170 ohms in S(___,__., ) 
40 ohms in S(___,__,__) 
120 ohms in S(___, a) 





80 ohms in S(6,1,1) 
220 ohms in S(2,3,1) 
170 ohms in S(5,2,1) 

40 ohms in S(3,1,1) 
120 ohms in S(2,2,1) 


25. Cliff follows the same plan for all six drawers of his cabinet. His cabinet 
will then hold resistors from 1 to (but not including) 1800 ohms. He now ac- 
quires a new batch of resistors and writes a program on his TRS-80 to tell him 
where to put each resistor. Here is his program: 


282 REM** INPUT NEW DATA** 


218 CLS 

222 INPUT "RESISTOR SIZE"; S$ Calculates the drawer 
238 D = INT(S/1@@) + 1 

24g C = INT((S-(3*D - 3)*188)/188) + 1 The column 
258 R = INT((S-188*INT(S/18B))/15) + 1 The row 
268 PRINT Ss; "OHMS GOES IN sce Re Ge OI 


278 GOTO 228 
Use this program to classify these resistors (all measured in ohms): 
500, 170, 1200, 1000, 330, 270, 70 




















RESISTOR SIZE? 5898 
5228 OHMS GOES IN S( ’ ’ ) 


RESISTOR SIZE? 178 
178 OHMS GOES IN 


RESISTOR SIZE? 
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Show the display after the run is completed. 
12868 OHMS GOES IN 

i 





RESISTOR SIZE? 588 

58@ OHMS GOES IN S(1,3,2) 
RESISTOR SIZE? 178 

172 OHMS GOES IN S(5,2,1) 
RESISTOR SIZE? 1268 

12828 OHMS GOES IN S(1,1,5) 
RESISTOR SIZE? 18898 

1828 OHMS GOES IN S(1,2,4) 
RESISTOR SIZE? 336 

338 OHMS GOES IN S(3,1,2) 
RESISTOR SIZE? 272 

278 OHMS GOES IN S(5,3,1) 
RESISTOR SIZE? 7% 

7@ OHMS GOES IN S(5,1,1) 
RESISTOR SIZE? ~————————— Waiting for the next input 


26. The program in frame 25 could be used as part of a larger program that 
updates Cliff’s inventory records. The data would get rather large if we demon- 
strated all six drawers. We’ll use only drawer 1. You may expand the program 
for all six drawers if you wish. 
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128 
118 
128 
132 
148 
158 
162 
172 
182 
199 


288 
228 
248 
256 
268 
278 
288 
298 


396 
318 
328 
338 
348 
358 
368 
378 
388 


408 
412 
426 
438 


REM** INITIALIZE AND READ OLD DATA** 
CLS 
DIM S(7,3,6) <———_______- —— Dimensioned for all six drawers 
priv But we set D (drawer) to 1 
FOR Cc = 1 TO 3 
= 1 7T07 r 
READ N Read in old inventory 


Input new resistors 
REM**INPUT NEW DATA** —— 
INPUT "RESISTOR SIZE"; S$ 


C = INT((S-(3*D - 3)*188)/198) + 1 

R = INT((S-188*INT(S/199))715) + 1 

PRINT S; "OHMS GOES IN St go" eff" 

S(R,C,1) = S(R,C,1) + 1<~———— Increase inventory 
INPUT "IF MORE DATA, PRESS ‘ENTER’. IF DONE, TYPE D."; A$ 
IF AS <> "D" THEN GOTO 228 


REM**PRINT NEW INVENTORY ** 
cLS 
FOR R= 1707 


FOR C = 1 TO 3 
PRINT S(R,C,1) 
NEXT Cc 
PRINT 
NEXT R 
GOTO 388 
REM**OLD INVENTORY DATA** 


DATA 18,28,38,48,58,68,78 
DATA 16,38,58,78,68,49,28 
DATA 78,68,58,48,38,28,19 


Enter the program and run it. Press the BREAK key to stop it after you’ve 


filled in the values below. 


Input values: 10, 150, 220, 90, 50, 200, 33, 270, 15, 18 


Show the final array: 


Rows 


Columns 
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Columns 
i 2 3 


11 10 71 
22 30 61 
31 50 50 
40 
50 60 31 
60 40 20 
71 20 10 


Rows 


ANAURWND — 
b 
—_ 
~ 
—_ 


27. You are now entering the fourth dimension! Cliff has other cabinets filled 
with resistors. The first cabinet only took sizes up to 1800 ohms. He could 
number it cabinet 1 and create his own four-dimensional array. 





The subscripted variable naming the array could be: 
S(R,C, as B) 
Row-Colun” ee anes | 
Write a dimension statement for four cabinets with six drawers in each. 
Each drawer contains seven rows and three columns. __- 
) 
| 
| 


DIM S(7,3,6,4) 


28. Write a nested FOR-NEXT loop to read the values in the four-dimensional 
array in frame 27. Make the loop for the cabinet outside, then drawer, then 
column, then row. Don’t worry about the DATA list. 
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489 REM**READ FOUR-DIMENSIONAL DATA** 
418 FOR B = 1704 


456 READ N 


478 NEXT 


420 FOR D = 1 TO 6 

430 FOR C = 1 TO 3 

448 FOR R = 1 TO 7 
460 S(R,C,0,B) = N. 
478 NEXT R 

489 NEXT C 


490 NEXT D 
5@@ NEXT B 


SELF-TEST 


Here’s another chance to show how much you have learned. 

Remember that a two-dimensional array may be thought of as a table made 
up of rows and columns. Here is such an array, which we will call A. Questions 
1 through 5 refer to array A below. 


Array A 
5 7 3 
4 2 6 Rows 1, 2, 3, 4 
1 8 9 Columns 1, 2, 3 
7 3 10 


1. The value 5 is located in the element named A(1,1). Give the element names 
(a double-subscripted variable) for: 





(a) 8 

(b) 6 

(c) 10 

@) 3 _._______§_ssssand 
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2. Write a DIMension statement for array A. 


12% 


3. Give the value held in each of the following: 


(a) A(2,1) = 
(b) AQG,3) = 
(c) A(4,1) = 
(d) A(1,2) = 
4. If X = 2 and Y = 3, what value is held in each of the following elements 
of array A? 
(a) A(X,Y) = 


(b) A(XK+2,Y-1) = 
(c) A(X-1,Y-2) = 
5. Write a FOR-NEXT loop to fill the array A in the computer. 





288 REM**READ IN DATA** 
218 FOR R = 

22f FOR C = 

2328 

248 

258 


POG a 
S528 DATA 5,7,3,4,2,6,1,8,9,7,3,18 


6. Fill in the elements in the array below as they would be read in by this pro- 
gram. 


188 REM**READ IN DATA** 

118 FOR R = 1705 

128 FOR C = 1 70 4 

138 READ N 

148 B(R,C) =N 

156 NEXT C 

1628 NEXT R 

288 DATA 5,6,7,8,9,19,11,12,28,21 
218 DATA 22,23,24,25,1,2,3,4,8,26 
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Column 


1/2/3 |4 
1 
2 
Row 3 
4 
5 


Write a program to put zeros in all the elements of the following array. 


188 REM**ZERO THE ARRAY ** 
118 DIM A(1B,19,3) Elements A(R,C,D) 


128 FOR R = 
136 FOR C = 


146 FOR D = 


186 

Look back to the results of the program in frame 11. 

(a) How many club members own GOFUR II computers? 
(b) How many members do not own computers? 


(c) How many females own BLAST I computers? 








(d) How many males own GOFUR II computers? 


From the program run in frame 21, give the names of the club members 
who own no computer. 
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10. Use the program in frame 25 to tell in which drawer, column, and row each 


The numbers in parentheses refer to the frames in the chapter where a topic is 


of these resistors should be placed. 


(a) 
(b) 
(c) 
(d) 












Drawer Column 
400 ohms 
770 ohms 
1600 ohms 


22 ohms 





Answers to Self-Test 


discussed. 
1. (a) 8 A(3,2) 
(b) 6 A(2,3) 
(c) 10 A(4,3) 
(d) 3 A(1,3) and A(4,2) (frames 1-3) 
2. 128 dim A(4,3) (frames 13, 14) 
3. (a) A(Q,1) = 4 
(b) A(3,3) = 
(c) A4,1) =7 
(d) A(1,2) = 7 (frames 1-3) 
4. (a) A(XK,Y) = 6 A(2,3) 
(b) A(K+2,Y-1) = 3 A(4,2) 
(c) A(X-1,Y-2) = 5 A(i,1) (Frame 3) 
5. 219 FOR R = 170 4 (frames 4, 7-11) 
226 FoR Cc = 1 TO 3 
238 READ N 
248 A(R,C) = N 
252 NEXT C 
268 NEXT R 
6. Column 


Row 










bo ps [i |2 
[a [os 








(frames 4, 11) 





126 
136 
146 
158 
162 
172 
182 


(a) 
(b) 
(c) 
(d) 
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NEXT ¢ (frame 7) 


8 (4 males, 4 females) 

5 (3 females, 2 males) 

5 

4 (frames 11, 19) 


EVERS TREND (in any order) (frames 19, 21) 
HENRY VRUHM 


MARKS 


(a) 
(b) 
(c) 
(d) 





1600 ohms 
22 ohms 






(frames 25, 26) 








CHAPTER ELEVEN 


Editing and Debugging Programs 





Up to this point in the book you have been shown just two ways to correct 
mistakes in programs: 


—using the backspace key, , to move the cursor to the left, caus- 
ing characters to be erased (Chapter 2, frame 9). 
—retyping the entire program line (Chapter 3, frame 9). 


This chapter now introduces you to the other editing features that are built into 
the TRS-80—features that allow you to correct program mistakes quickly and 
easily. Editing a program is like carefully retyping an important letter you have 
written to get a job. What you want to do is to correct the typing mistakes, insert 
some extra phrases and sentences, and not disturb the rest of the stuff you have 
written. The TRS-80 editor performs these tasks well. 

After completing this chapter and working with the TRS-80’s editor, you 
will find that you can: 


add information to the end of a program line; 

change the information on a program line; 

delete information from a program line; 

insert information into the middle of a line; 

search any line for repetitions of a character; 

skip to the end of a program line; 

drop the remaining portion of a line; 

use combinations of editing features to quickly make changes and cor- 
rections anywhere within a program. 


To use the TRS-80 editor, you type the word EDIT followed by the line 
number of the program line to be edited. The computer enters what is called the 
edit mode and waits for whatever commands you might give it. For example, you 
may wish to change one character in the middle of a program line. With the 
editor, you will soon discover that it is unnecessary to retype the entire line. You 
can go into the edit mode and change that one character. 
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When you enter the proper editing commands, the editor will take care of 
copying that part of a line you don’t wish to disturb. You just enter the changes, - 
corrections, or insertions. The TRS-80 edit mode can save you typing effort. If 
you are like us, the more typing you do the more chances there are for mistakes. 
So type less by editing more! The edit mode is easy to learn to use, and will save 
you time in the long run. 

The second thing to be covered in this chapter are some hints on how to go 
about debugging a program. What is this stuff about ‘‘debugging’’? Do we mean 
that there are actually bugs in the program? 





18 Line 10 has 


a bug in it! 






No! ‘‘Bugs’’ is a name for the logic errors and typing mistakes that cause your 
programs not to work the way you want them to work. Discovering where these 
‘‘bugs’’ are and correcting them is called ‘‘debugging.’’ (One way to get real bugs 
in your programs is to store your TRS-80 in a closet or basement for several 
months. You may also get mice and a few other creatures.) 

You will be introduced to two BASIC commands that are used to debug 
programs: TRON and TROFF. These two commands turn on and turn off, 
respectively, the TRS-80 trace function. The trace function allows you to follow 
the flow of a program as it executes. But before we get into debugging, let’s try 
our hand at editing. 


1. As beginners on a computer, most of the editing we do is to correct 
mistakes. As we do more programming, we find that a lot of the editing we do is 
to improve our programs—to add features and enhancements that make the pro- 
grams work better. The TRS-80 editing comands work the same way in both 
cases. With this frame, we begin to show you each of the features of the TRS-80 
editor. The object here is to familiarize you with each editing command—how it 
works and how it is used, whether on mistakes or program enhancements. 

To learn to use the TRS-80 editor, we first need a program to edit. Let’s 
enter one. To do so, we clear the machine of any old programs by typing NEW. 
Then we enter the following one-line program. 


We type: 19 PRINT:PRINT:PRINT 


What does this program do? Well, it should print three blank lines on the screen. 
To see if this is true, we clear the screen and RUN the program. 


We type: CLEAR key 


RUN 


Three blank 
lines. 
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Let’s now look at how we can get the TRS-80 into and out of the edit 
mode. If we type the word EDIT followed by the line number of the program 
line we wish to edit, the machine is placed in the edit mode. For our current pro- 
gram, here is what happens. 


We type: EDIT 12 
It prints: 19_ 





We say we want 
to edit line 10. 


>EDIT 18 







We are now in the editor. The TRS-80 is ready to make changes or corrections to 
line 10. The cursor appears after the number 10 on the screen. As you remember, 
the cursor indicates that it is our turn to do something. For now, we will not 
make any changes or corrections but will show you how to get out of the edit 
mode. We press the ENTER key. 

Pressing the ENTER key while in the editor is a signal to the TRS-80 to exit 
the edit mode. The editor prints the rest of the line that is being edited as the exit 
from the edit mode is taking place. 


We type: ENTER 





>EDIT 128 
18 PRINT:PRINT:PRINT 


> 


So, to enter the edit mode on your TRS-80, you type the word 


—_—_CCOfollowed by the __——C—‘“‘(CCé*déf' the 
line you wish to edit. Once you are in the edit mode, to leave the editor you 


simply press the CSCsikley. 


EDIT; line number; ENTER 


2. The format of the EDIT command that is used to enter the TRS-80 edit 
mode is: 


The word EDIT followed by 
the line number of the line to be edited. 


If we misspell the word EDIT, the TRS-80 will respond with the 7?S3N ERROR 
message. This message is what we get any time we misspell a BASIC language 
command. 

The line number that is specified in the EDIT command must be a valid 
line number—one that is used in the program. What do you think happens if we 
ask for a line number that is mot in the program? You probably guessed it! We 
get an error message, but one that is slightly different from any seen so far. 
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To check this out, let’s ask for a line number that is not in our current pro- 
gram. Since our program is only one line long, just about any line number will 
do. 


We type: EDIT 15 
It types: ?UL ERROR 
READY 
Pias 






>EDIT 15 
?UL ERROR 
READY 










This line number is 
not in the program. 







> 


Have you guessed what UL stands for? It is short for Undefined Line. In 
the EDIT command, we referenced a nonexistent line number. The TRS-80 prints 
the error message and exits from the edit mode since we can’t edit a line that 
isn’t there. 

You might try other line numbers that don’t exist. Each attempt will result 
in another 7?UL ERROR message. The only line number that will work is line 
number 10—+the valid line number in our current program. Of course, programs 
can have many valid line numbers based on the number of lines in the program. 
Our example just happens to have only one line and one line number. 


3. In the last two frames, we covered the steps of getting into and out of the 
editor, and the error messages that can occur in typing in the EDIT command. 
At this point, we know that you can successfully get into the edit mode and that 
you are ready to do some actual editing (you might review the past two frames if 
you want to). We begin by looking at an editing feature that allows you to posi- 
tion the cursor on the line to be edited. 

If we press the while in the edit mode, the cursor moves one 
space to the right on the screen. As the cursor moves, the characters of the line 
being edited appear on the screen. It’s almost as if the computer has the program 
line ‘‘hidden’’ and the movement of the cursor ‘‘uncovers’’ each character. Each 
time we press the , one character appears. If we press the bar five 
times, the first five characters of the program line show right after the line 
number and the leading space. For our current program, pressing the bar five 
times causes the word PRINT to appear. 


We type: EDIT 128 
It types: 19_ 









>EDIT 18 





Before we press the 








We type: 
five times. 
It types: 19 PRINT_ 






>EDIT 18 
10 PRINT_- 








After we press the 
five times. 





EDITING AND DEBUGGING PROGRAMS 263 





If we continue to press the bar, soon the entire line would be displayed. But hold 
it! We said the editor is designed to save you typing effort. There is an easier 
way. If we enter a number before we press the bar, the editor will move to the 
right that number of spaces. Look at how this feature works. 


We type: [6] [Space bar] 


It types: 19 PRINT:PRINT_ 













>EDIT 
18 PRINTs:PRINT_ 


The screen now shows... 


Did you notice that when the [6] was pressed nothing happened on the 
screen? That is because we are in the edit mode. Most of the time, when we are 
editing, pressing a number is interpreted by the editor to be a repeat count—a 
command to the editor to repeat the next editing command that many times. Ah! 
The editor is so clever! That is why it can save us typing time. 

Now it is your turn. What must you enter to expose the next three 
characters on the line? The line, after your entry, will look like this: 


18 PRINT : PRINT : PRL 


[5] [Spacetar] or (Spacebar] [Epacebar] (Space bai] 


Remember, if you wish to exit the edit mode, just press the ENTER key. If you 
run into any difficulty in this frame, press the ENTER key until the prompt (>) 
appears. Then start back at the beginning of the frame with the EDIT 10 
command. 


4. In the last frame, we moved the cursor to the right on the screen. Here we 
will learn how to move it to the left. Once we can do this, we can place the cur- 
sor anywhere on the line to be edited. 

The key that moves the cursor to the left is the key—the left- 
pointing arrow. Each time the key is depressed, the cursor moves one space to 
the left, and the character at that position disappears. 


We type: 


It types: 19 PRINT:PRINT:P_ 





>EDIT 18 


We type: 12 PRINT:PRINT:_ 
It types: 19 PRINTs:PRINT?_ 













The screen will 
look like this at 
the end. 
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How would you move the cursor to the left seven more spaces? One way is 
to press the key seven times. Another, and more convenient, way is to use 
the repeat count feature. It works as it did in the last frame. 


We type: 


It types: 19 PRINT_ 










>EDIT 19 
18 PRINT_ 








The screen now 
looks like this. 






Once again, when we hit the key, nothing happened on the screen. The 
editor simply waited for us to enter the EDIT command that we wished to 
repeat. You can now move to the right and the left while in the edit mode. Try 
what you have learned and move the cursor about on the line. Does anything 
peculiar happen when you move all the way to either the right or the left? 
Yes! No matter how many times you hit the , you never 

move beyond the last character of the line. Similarly, repeated pressings on the 

key will not move you left, past the space after the line number. Try them 
both and see. 


12 PRINT: PRINT:PRINT 





You can move 
this far right. 


You can move 


this far left. 





5. | Move the cursor so that the screen looks like this: 





>EDIT 18 
18 _PRINT_ 


If you place a finger from your left hand on the , a finger from 

your right hand on the key, and alternately press each key, what seems to 

occur? Well, if you start with the followed by the [=] key, the | 
colon (:) appears to ‘‘flash.’’ If you begin with the key, the letter T 

“‘flashes.’’ 









>EDIT 12, 
18 PRINT:2. 
“IN 





Start with the 


and the colon ‘‘flashes.’’ 
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>EDIT 19 
12 PRINT 
La] 





eS 
x 


Start with the 


and the T ‘‘flashes.’’ 
What might this be used for? Nothing much, really. But we thought you might 
be ready for a rest frame, so go ahead and try to make the letters flash. Watch 
them carefully. Maybe the flashing will begin to hypnotize you. Firedrake the 
Dragon is mumbling something about making the whole thing into a game. 
Perhaps you can invent a game based on these two edit features. After all, as the 
cursor moves to the left, it does seem to ‘‘eat’’ the characters; to the right, it 
‘*spits’’ them back on the screen. Ugh! There must be a better game than that. 
Why don’t you try to think of one? Maybe the game should have two persons in- 
volved: one moving left, one right? 


6. Ready to learn more about the edit mode? Good! Now we are going to 
examine an editing feature called the search command. 

While editing, it is often difficult to visually count the exact number of 
characters needed to move the cursor to a particular line position. When the line 
is long or there are repeated sets of characters, we lose the count easily. The 
search command can be used to move the cursor quickly and exactly. To activate 
the search operation in the edit mode, press the S key. We start with our screen 
showing the following: 


(Do whatever you need to 

do to make your screen ee 
look like this. If you are ———— 1 
not in the editor, type 

EDIT 10. If you are still in 

the edit mode from the last 

frame, move the cursor to 

the left as far as it will 

go.) 


OK! (Did you know that OK comes from the first letters of the birthplace of 
Martin Van Buren? Or is it from the 1790s phrase or! korrect?) Anyway, with the 
screen as shown above, let’s say we want to move the cursor to the end of the 
first PRINT statement. We could press the five times as we did in 
frame 3. Or we can tell the editor to ‘‘search’’ down the line for the first oc- 
currence of the colon (:) character at the end of the first PRINT statement. We 
press the S key and then the colon (:). Here is what happens: 


We type: [:] 


It types: 19 PRINT_ 












>EDIT 18 
18 PRINT 





The search command 
moves the cursor here. 

















266 TRS-80 BASIC 


If we continue to issue the same search operation, this is what happens: 


We type: [Ss] [=] 


It types: 19 PRINT:PRINT_ 





>EDIT 12 


We type: fe] 19 PRINT:PRINT:PRINT_ 


It types: 19 PRINT:PRINT:PRINT_ 






Cursor positions 
after 2nd and 3rd 
search commands. 







For the last search, there was no colon to the right of the cursor. The editor 
recognized this condition and placed the cursor at the end of the line. When the 
search character is not found, the cursor is always moved to the end of the line . 
being edited. 

What edit command would you use to move the cursor from the beginning 
of the following line to the first occurrence of the letter T? 


18 PRINT : PRINT : PRINT 
Assume you are in edit mode and the screen shows the following: 
You type: 


>EDIT 19 
1B 


; or [4] ; or [:] followed by the 


key. You will find that there are often several ways to edit a line. All of them 
work. As you learn more editing commands, you will discover sequences of 
editing that are best for you. The TRS-80 editor is flexible and ready to edit a 
line in whatever way you tell it to do so. 





>EDIT 19 
18 PRIN_ 








Any sequence of edit commands 
shown above gives this result. 
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ee eee EEE 


7. | Wewish to start the next editing sequence at the beginning of line 10. We 
press ENTER (to exit the edit mode from the last frame) and type EDIT 10 (to 
restart the editing operation). Our screen shows the following information: 










We are still using the 


same program line: 
18 PRINT:PRINT:PRINT 


>EDIT 18 
16 







Do you recall the repeat count feature? If we combine the repeat count and 
the search command, look at what we can do: 


We type: [:] 


It types: 128 PRINT:PRINT_ 





>EDIT 18 
18 PRINT:PRINT_ 












The cursor is at 
the second colon. 


The repeat count works with the search command. For the example shown, we 
told the editor to search out the second occurrence of the colon (:). It did so, and 
it did it quickly! Using this command certainly beats counting the number of 
characters needed to position the cursor. 

By now, you must be getting a good feel for how the search command and 
the editor are working. Test your skills on the following questions. Assume we 
are using the same progrdm example: 


12 PRINT:PRINT:PRINT 


If you are at the beginning of the line, in the edit mode, what editing instructions 
would you use to: 


(a) move the cursor to the third occurrence of the letter I? 


(b) move the cursor to the end of the line (the position beyond the last letter in 
the line, T)? 





(a) [s] (i) or 1] [4] . There are many ways to 


perform this editing task; your way may be different. The edited line will 
look like this: 


18 PRINT:PRINT:PR_ 
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(b) [s] followed by the or entering a repeat count 
of 17 or greater followed by the . Again, with the TRS-80 
editor, there are numerous editing sequences, all of which get the job done. 
You may have used a different set of commands. The edited line appears 
on the screen as follows: 


18 PRINT:PRINT:PRINT_ 


8. The program that we are editing contains only a single program line. Most 
programs that we have been writing have several lines. Thus, when we first enter 
the edit mode, we may not know or remember exactly what each line has in it. 

Once more, the TRS-80 editor comes to the rescue. The editor provides us 
with a /ist command that displays everything on the line currently being edited, 
starting at the position of the cursor and going to the end of the line. The editor 
then reprints the line number, dropping down to the next line on the screen, and 
places the cursor at the beginning of the line. 

Let’s try this command and see what occurs. We will begin by entering the 
edit mode. 


We type: epit 18 
It types: 12 










>EDIT 18 
19 





You’ve seen this 
part before. 








We type: 


It types: 19 PRINT:PRINT:PRINT 
12 _ 






>EDIT 19 
18 PRINT:PRINT:PRINT 
12 











The editor listed 
the line. 






Still in the edit mode. 
What do we want to do now? 







As before, the edit command does not appear on the screen. The editor accepts 
the command, performs the editing operation, and waits for your next instruc- 
tion. The list command will work anytime, as long as we are not in the middle of 
another edit operation. If you keep hitting the L key, what happens? Try it. The 
screen will fill with copies of line 10, but you will still remain in the edit mode. 

Let’s review some of the editing commands you have tried so far. What 
keys do you press to: 


(a) Exit the edit mode? i ll 
(b) Move the cursor to the right? 


(c) Move the cursor to the left? 





oe. 
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(d) Search for a character? 


(e) List the contents of a line in the edit mode? By 


(a) [ENTER] ; (b) [Space bar] ; (0) ;@ [S];@ 


9. What other wonders does the TRS-80 editor possess? More, much more. 
Let’s see. What have we done when we edited a line that the editor might be able 
to do more easily? 

How about moving the cursor to the end of the line? The way we did this 
operation before was to enter a large repeat count (more than the number of 
characters in the line) and press the . Or we used the search com- 
mand to move us out near the end of the line and then hit the 
several times, as was needed. 

But the TRS-80 editor has a better way! It is called the end-of-the-line-and- 
insert command. Wow! That’s a long name. You might think that the command 
must be pretty long, as well. Nope! Remember, the editor is designed to save typ- 
ing effort. A single key, the X key, activates this editing feature. We will use it to 
move the cursor to the end of the line. As usual, we assume we have just entered 
the edit mode and that the cursor is at the beginning of the line. (We will not 
show the screen when the edit starts this time. Why? Because you are probably 
tired of looking at the same picture . . . just as we are.) 


We type: 


It types 19 PRINT:PRINT:PRINT_ 





>EDIT 18 
18 PRINT:PRINT:PRINT_ 


Moved to the end of the line. 


What should we insert? 





Before, when we moved to the end of the line, the cursor would not go any far- 





ther. Pressing the in this case causes the cursor to move. In fact, 
both the and the key work beyond the end of the line. Try 





it. Hit the twice, then the key twice. The cursor moves 
right two spaces, left two spaces, and ends up where it started—at the end of the 
line. The reason is that the editor is waiting for us to insert something. 

This command does two things: (1) moves the cursor to the end of the line, 
and (2) allows us to insert information at that point. 

What shall we insert? How about another PRINT statement. 


We type: E] PRINT ENTER 
It types; 18 PRINT:PRINT:PRINT:PRINT 
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By pressing ENTER, we left the edit mode; the new line, with four PRINT 
statements, is now our new program. If we type LIST, the screen should look 
like this: 









>EDIT 18 
12 PRINT:PRINT:PRINTsPRINT 
>LIST 

18 PRINT:PRINT1PRINT:PRINT 


READY 
Displayed by LIST command. 


> 
10. Based on the editing in the last frame, our program now looks like this: 





Result of pressing S, 
typing :PRINT, and 
hitting ENTER. 





18 PRINT : PRINT : PRINT : PRINT 


We noted that the X command allows us to move the cursor beyond the end of 
the line being edited. We can also move the cursor to the left, into the line. But 
watch out! 

When we did this operation at the start of this chapter, the cursor made the 
characters disappear as we moved left. Pressing the caused the 
characters to reappear. With the X command, moving the cursor left causes the 
characters to disappear, but they are also deleted from the line. Let’s edit line 10, 
move to the end of the line, hit the key several times, and look at the 
results. 


We type: epiT 12 
It types: 109 _ 


We type: 


It types: 19 PRINT:PRINT:PRINT:PRINT_ 


We type: 


It types: 19 PRINT:PRINT:PRINT_ 





Now press the a couple of times. The cursor moves to the right, 
but the colon and the letter P are gone. In fact, the colon and the fourth PRINT 
statement have been deleted. In most of the edit commands we have left to ex- 
amine, the key works as it does with the X command. The key 
deletes characters from the line as the cursor moves to the left. 

Complete the current editing. Press ENTER. Our original program, with 
three PRINT statements, should now be in the computer’s memory. The X com- 


mand, in the edit mode, moves the cursor to the _____ of the program 


line and waits for youto_____————_— anything you want. Pressing the 
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i 


key after entering the X command causes the cursor to move to the 


Any characters that the cursor moves over are ________ from the line. 


end; insert; left; deleted 


11. What is the next thing that the editor has to offer? Why, a command that 
makes it easy to delete from the cursor osition to the end of the line. Instead of 
moving the cursor to the end of the program line with the X command, and then 
using the key to delete characters, we can delete characters by using the 
hack-and-insert command. Hack?? That’s right, hack! The command is activated 
by the letter H. Pressing the H key while in the edit mode drops everything from 
the cursor position on. Let’s try it. 


We type: EDIT 19 

We type: 

It types: 19 PRINT:PRINTsPRINT 
18 _ 


wee: 5) E]-———_{ earch) 
It types: 19 PRINT: PRINT_ 
It types: 19 PRINT:PRINT_ 


Nothing. But the last PRINT 
is gone. 





This was the line we ended 
with in the last frame. 











How can we check that the colon and the last PRINT statement have been 
deleted? The cursor is at the end of the line waiting for us to insert anything we 
care to insert. If we try to type anything, like the L command, we will just put 
an L on the end of the line. We have to escape from the insert that is being ex- 
pected. To do so, we hold down the SHIFT and press the key. Nothing 
happens on the monitor, but if we now press the L key, the editor accepts the 
key as the list command. Let us demonstrate all of this. 


We type: 


It types: 19 PRINT:PRINTL_- 


It types: 19 PRINT:PRINT_ 


We type: 


It types: 19 PRINT:PRINT_ 


We type: 


It types 12 PRINT:PRINT 
1B _ 












We are still in the insert 
part of the H command. 





Nothing. But we are now out 
of the insert mode. 






Lists the line (note: the 
colon and PRINT are gone). 
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Just to frusttobe sue!) sure! 
We type: 19 PRINT:PRINT 
It types: 12 — 













The first list command. >EDIT 12 


12 PRINT:PRINT:PRINT 
18 PRINT:PRINT 
18 PRINT:PRINT 
12 PRINT:PRINT 






After the hack command. 


The second list command. 







The third list command. 
Pressing ENTER 





So, to delete all the characters from the position of the cursor to the end of 
the line, press the sd key. When you want to escape from the insert 
part of an edit command, hold down the key and press the 


key. 


A: GH; 7 


12. Enter the following line into the computer: 


168 PRINT:PRINT:PRINT 


Suppose we wish to drop the last colon and PRINT statement, and replace them 
by: ‘“HELLO’’:PRINT‘‘FRIEND’’. We want line 10 to look like this: 10 
PRINT:PRINT‘‘HELLO”’:PRINT‘‘FRIEND”’. Can you supply the appropriate 
editing commands below? 


You type: (a) 








It types: 1g _ 
You type: (b) 
It types: 18 PRINT:PRINT:PRINT 
18 _ 
You type: CC) pee re 
It types: 18 PRINT:PRINT_ 
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ee 


You type: (d) 
It types: 19 PRINT:PRINT_ 





You type: (OQ) 2 ee 





It types: 19 PRINT:PRINT"HELLO":PRINT"FRIEND"_ 

You type: (f) 

It types: 19 PRINT:PRINT"HELLO":PRINT"FRIEND"” 
> 

(a) EDIT 16 to activate the edit mode. 


(b) to list the line. 

(c) [:] to move the cursor to the second colon. 

(d) [H] to drop the colon and the last PRINT statement. Nothing happens 
on the monitor. You are left in the insert mode. 

(ce) "HELLO":PRINT"FRIEND" to insert the new parts of the line. 


(f) ENTER | to end the edit. 


13. Both the X command and the H command leave us in the insert mode. 
However, because of what they do first—either move to the end of the line or 
delete everything to the end of the line—we can only insert new stuff at the end. 
What happens if we want to insert into the middle of the line? Why, we can use 
the insert command all by itself. And (you probably guessed it) the letter I con- 
trols the insert mode while we are in the editor. 

If we use the program from the last frame: 


18 PRINT:PRINT"HELLO":PRINT"FRIEND" 


and change it to the following program: 


18 PRINT:PRINT"HELLO TRACY":PRINT"MY FRIEND" 


there are several ways to edit the original line to get the second one. We could 
use the S command to move us to the second quote (’’) mark; enter the H com- 
mand to drop the rest of the line; type the new information, beginning with the 
space after the word HELLO. That works fine and gets the job done. But let’s 
look at using the insert command to do the same thing. 


Skip to the second quote mark. 


Remember! We are in the 
insert mode. To leave that 
mode we must do this. 


We type: EDIT 12 
It types: 19 _ 


We type: [s] Ls] 


It types: 19 PRINT:PRINT"HELLO_ 


We type: 7] TRACY 


We type a leading space here. 

























Now out of insert mode; 
ready for next command. 


It types: 18 PRINT:PRINT"HELLO TRACY_- 
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We type: 
It types: 198 PRINT:PRINT"HELLO TRACY" :PRINT"_ 
We type: [1] MY ENTER 
We type a trailing blank. 


It types: 19 PRINT:PRINT"HELLO TRACY":PRINT"MY FRIEND" 
p 









RUN the program and check how it looks on the monitor: 


We type: RUN 





>RUN 


HELLO TRACY 
MY FRIEND 
READY 

> 


If you wish to insert something into a line being edited, you press the 


key, and then type in the characters you want . into the line at 
that point. To leave the insert mode, but still remain in the edit mode, press the 


SHIFT ____. 





[7] ; inserted; 


14. Let’s try the insert command once more. The current program line looks 
like this: 


18 PRINT:PRINT"HELLO TRACY":PRINT"MY FRIEND" 


Suppose you wanted to insert the word GOOD into the last PRINT statement. 
Fill in the sequence of edit commands that does the insertion. 


You type: (a) 
It types: 1B _ Csuip tote.) 





You type: (bt) oO 
It types: 1@ PRINT:PRINT"HELLO TRACY":PRINT"MY _ 

Start with insert command. 
You type: (GC) ee 
It types: 19 PRINT:PRINT"HELLO TRACY":PRINT"MY GOOD an 

Exit the edit mode. 

You type: a eet a 
It types: 18 PRINT:PRINT"HELLO TRACY":PRINT"MY GOOD FRIEND" 
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(a) EDIT 10 to enter the edit mode. 

(b) to skip to the letter F. Note: there are other commands that 
would do the same thing. 

(c) | 1} , then type in the word GOOD, and a trailing space. 

(d) ENTER| to terminate the editing. 


You can check the line by RUNning the program: 
You type: RUN 





>RUN 


HELLO TRACY 
MY GOOD FRIEND 


READY 
Here is the new word. 


15. How about a quick review of all the editing commands so far? What hap- 
pens when you press the following keys, in the edit mode? 


(a) key: 
(o) [Space bar] : 
(c) key: 
(d) [S$] key: 
(e) key: 


























(h) key: 
@ [1]: 








(a) Exit the edit mode. 

(b) Moves the cursor one space to the right. 

(c) Moves the cursor one space to the left. 

(d) Activates the search command. The next character entered is searched for in 
the current line. If found, the cursor moves to the position of the character; 
if not found, the cursor is placed at the end of the line. 

(e) Lists the contents of the current line. 

(f) Positions the cursor at the end of the line, and waits for you to insert new 
information. 

(g) Deletes all the characters from the position of the cursor to the end of the 
line. After the delete, the editor is left in the insert mode. You may insert 
new information. 
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(h) Places you in the insert mode, at the current position of the cursor. 
Whatever you type is inserted into the line. 

(i) | Escapes from the insert mode. Can be used with the X, H, and I commands 
to break the insert operation. 


Wow! You are really covering a lot of material on the TRS-80 editor. Why don’t 
you do a few push-ups to refresh yourself, and then charge into the next set of 
frames... 


16. Feel better? Did you do something physical: stretch, jog, a few push-ups? 
Do it. Sitting too long in front of your computer is not always good for your 
body. A little physical activity also helps sharpen your mind. So take a break! 







My human likes me... . 
and takes care of herself 
so she can last as long 






Great! What else does the editor do that will help you make changes to 
your program? Perhaps, there is a command that allows you to stop the editor if 
you have made a mistake while editing. What’s that again? That’s right, a sort of 
editing-the-editing command. 

Actually, this command is called the cancel-and-restart command. The key 
to press for this command is the letter A. You can use this key when you have 
made a mistake while editing, and you just want to start things over. Let’s begin 
with our original program line, and see how this command works. 


18 PRINT:PRINT:PRINT Remember this one. 


Again, we want to insert the messages ‘‘HELLO” and ‘“‘FRIEND” after the se- 
cond and third PRINT statements. 


We type: EDIT 19 
It types: 12 _ 


We type: [s] (:] 


It types: 19 PRINT_ 







Oops! We meant to go to the 
second colon. 















EDITING AND DEBUGGING PROGRAMS 277 












We type: 0] "HELLO" 


It types: 19 PRINT"HELLO” _ 





We don’t notice that we are 
at the wrong place and insert 
the first message. 








Thinking we are ready for the 
last insert, we skip to the end. 


We type: 
It types: 19 PRINT"HELLO":PRINT:PRINT_ 


At this point, we notice that the first insert was incorrect. Good! A chance to use 
the A command. 


We type: 


We type: 


It types: 19 PRINT"HELLO":PRINT:PRINT 
12 







Why? Because we must escape 
from the insert mode. The 
X command left us in 
the insert mode. 

















Stops the edit and resets 
to the beginning of the line. 












The list command. We want to check the line. 


We type: 


It types: 19 PRINT:PRINT:PRINT 
12 





Our original line is back. 
The incorrect insert is gone. 





When a mistake occurs during editing, pressing the SHIFT ______ key and 
then the____ key will cancel all editing changes and allow you to restart the 


edit from the beginning of the line. 


ha] ©: wl 


REMEMBER! The A command will not work if you are in the insert 
mode. You must press the 


—*((sart] [1] 


key before you enter the A command. 


o—— 
o——_ 
—?> 
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17. With the editing commands that you know to this point, it still is awkward 
to delete characters that are in the middle of the line. What you need is the delete 
command. Voila! The TRS-80 editor has just such a command. 

The delete command is activated by the letter D, and it may be used with a 
repeat count. The command allows you to delete characters anywhere in the line. 
For our example line: 


19 PRINT:PRINT:PRINT 


if we enter the edit mode and press the 6 and D keys, the first PRINT statement 
and the colon are deleted. On the screen, a pair of exclamation marks (!) bracket 
the six characters that are deleted. 


We type: EDIT 12 
It types: 19 _ 


We type: [6] 
It types: 19 ! PRINT: !_ 


We type: 


It types: 19 !PRINT:!PRINT:PRINT 
19 PRINT:PRINT 


12 
The first six characters are deleted. 


What happens if you press the A key at this point, followed by the L key? 
Show what is on the screen: CCU Wht if you press 


3 D 3 D? What is on the monitor now? 









Exclamation marks appear before 
and after the deleted characters. 












Once to list rest of line; again 
to list line with characters gone. 












The edit changes are ignored and 
the original line is listed. 


12 PRINT:PRINT:PRINT 
12 


















The next six characters appear 
between exclamation marks, indi- 
cating that they were deleted. 





18 !PRILINT:!_- 






18. In the last frame, we introduced the delete command for the TRS-80 editor. 
The command could be used to delete characters in the middle of the line. There 
is also an edit command that allows us to change characters in the middle of the 
program line. 

You are probably getting ahead of us now. You have most likely guessed 
that the letter C activates the change command while in the edit mode. 
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Let’s take the following program line, and see how the change command 
works: 


18 PRINT"HELLO FRIEND" 


Let’s change the word FRIEND to the word DRAGON. They have the same 


number of letters. This will be easy! 
Skip to the F in FRIEND. 


Changing six characters— 
the next six. 







We type: (You must know by now!) 
It types: 19 


We type: 


It types: 19 PRINT"HELLO _ 


We type: [6] 


It types: 10 PRINT"HELLO _ 


We type: [D] [0] 


It types: 12 PRINT"HELLO DRAGON_ 


We type: |ENTER 


It types: 12 PRINT"HELLO DRAGON" 











Nothing. just waits for 
the changes. 





Accepts the six new charac- 
ters and places them where 
FRIEND was. 


The change is recorded. 


Nothing to it! With a little bit of knowledge, you can now change the world. Try 
other changes on your own. 





19. Take the program from the last frame: 
12 PRINT"HELLO DRAGON" 
and change it to read: 


12 PRINT:PRINT:HELLO DRAGON":PRINT 


Explain how you would go about making these changes to line 10. 


One way to edit the line would be to do the following: 


(a) enter the edit mode (EDIT 10) 
(b) insert (1) the six characters PRINT: 


(c) escape from the insert with |SHIFT 
(d) skip to the end of the line (X) 
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(e) insert the last six characters :PRINT 
(f) press |ENTER|] to end the edit. 


BUT . . . there are many other ways to make these changes, based on the par- 
ticular edit commands you wish to use. As long as the line looks, at the end of 
the edit, like the one above, any set of TRS-80 edit commands can be used. 


20. We have ben delaying discussion of the next edit command for two reasons: 


—We needed to cover the preceding editing commands before we could 
logically talk about this one, and 
—The name of this command is a bit frightening. 


Are you ready? This command is called the search-and-kill command. Isn’t that a 
horrible command for a friendly computer to have? This edit feature combines 
the operations of two previous commands: the search and the de/ete functions. 
The letter that is used for this command is the letter K. 

Actually, the K command doesn’t really ‘‘kill’’ the characters, but only 
deletes them from the program line. Maybe the computer designers should have 
named this edit function the ‘‘search-and-kindly-remove’’ command. The letter K 
would have still been appropriate and the command would not sound so warlike. 
Oh, well! We can always refer to it as the K command and not think of its name. 

Let’s try this command on our last program line: 


1@ PRINT:PRINT"HELLO DRAGON" :PRINT 
We enter the editing mode by typing the normal EDIT 10. 


We type: [:} Searches for the first colon and deletes 
It types: 12 !PRINT!_ everything up to this character. 


Note: It does not delete the colon. 


In order to delete the colon, we must issue one more instruction. 


We type: [pD] 
It types: 19 !PRINT!!:!_ 






But that was more complex than just typing 6 D, which would have done the 

same thing. Right! The observation is true for deleting what we did. But what if 
we had wanted to delete the first two PRINT statements? Well, that’s where the 
K command comes into its own. Proceed to the next frame for more revelations. 


21. Cancel the editing changes that have been made by pressing the A key. 


We type: 


It types: 18 !PRINT!!:! 
12 


We type: [:] 


It types: 19 !PRINT:PRINT"HELLO DRAGON" !__ 






Search for second colon and delete 
everything up to that point. 
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A simple way to delete the whole two statements, except for the colon. Now, if 
there was only a way to get that colon at the same time. Maybe there is a way. 
Cancel the edit changes once again. 


We type: 


It types: 19 !PRINT:PRINT"HELLO DRAGON"! 


1a _ 
We type: et 


It types: 1g tpRINT:PRINT"HELLO DRAGON": !_ 






It got both statements, including 
the colon. Why? 






Well, when the search began the cursor was already positioned at the first oc- 
currence of the letter P. Looking to the right, from the cursor, for the next two 
P’s just happens to cause the two beginning statements to be deleted completely. 
By being clever, we can get the K command to do a lot of work for us. 

How about a quick review of the last few editing commands we have 
discussed. 


(a) To cancel editing changes and restart, you press the ______ key. 

(b) To delete characters to the right of the cursor, you use the ___ key. 

©) If you want to change some characters in the middle of the line, you can 
use these. 

(d) Pressing the _______ key combines the two operations of searching and 
deletion. 


(a) A; (b) D; (c) C; (d) K 


22. Two last editing commands are discussed in this frame. They are presented 
more for completeness, in case you accidentally hit them in the editing process. 
They are: 


—Save-changes-and-exit command: E key 
—Cancel-and-exit command: Q key 


Both cause you to exit the editing mode. The E command records all the editing 
changes you have made before exiting. The Q command cancels all changes and 
then exits. Hitting the E key is like pressing ENTER, in terms of the results it 
produces. Pressing the Q key is like pressing both the A key and the ENTER 
key. Neither command works while you are in the insert mode. 

That completes your tour of the edit features of your TRS-80. Why don’t 
you take another stretch break. When you return we will discuss some of the 
debugging features that are available on your computer. Then we will wrap up 
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this chapter with a review of all the material that has been discussed, and have 
some Self-Test questions ready for you to try. 
So move away from your chair and get that blood circulating once again. 


— ve {7., 





fee 


23. Now we’ll go on to debugging programs. There are no exact ‘‘rules’’ for 
debugging programs. Usually, if a program has an error—it does not do what 
you want it to do—you must uncover the problem in any way you can. 

You can begin by carefully looking over the program. You try to see if 
there are any obvious typing errors, misplaced lines, or logic problems. But 
mistakes in programs are often difficult to discover visually. So you move on to 
more formal procedures, like running the program, and 


—tracing the steps the program makes during execution, and 
—using PRINT statements to display the contents of variable locations. 


Finally, if all else fails, you call on one of your computing friends for help. 
At this point, several things can happen. The most aggravating event is that your 
friend looks at the program for thirty seconds, and points out the ‘‘obvious’’ 
error—the one you’ve been looking for for over two days! 

The second thing to happen is a little less aggravating. Your friend looks at 
the program for several minutes and, because he or she is seeing the logic 
‘“‘fresh,’’ discovers a subtle flaw or typing mistake that you couldn’t readily see. 

The third possibility is that the error is not in the program but in the hard- 
ware of the computer. This last problem occurs infrequently. If your program 
doesn’t work, check the program! If you can’t find the error, check the program 
again! If you still can’t find anything wrong, call in a friend to check the pro- 
gram! 

If your program doesn’t work the way you want it to work: 


THE PROGRAM IS GENERALLY THE PROBLEM! 
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Debugging a program may involve (true or false?): 
___ (a) +=‘ Spraying the inside of your computer with bug spray. 
___ (b)_~=—siisually checking your program for errors. 
__._ (c)_ Removing tiny microphones the CIA has placed in your program. 


___._ (d)_—sr Tracing the flow of a program and pees displaying the contents 
of variable locations. 


—— (e) Dropping your computer from the tenth floor of an office building. 


—___ (f) ~+Having several friends over for beer. 


(a) False. In fact, you probably never want to spray anything into your 
computer. 

(b) True. This process is a good first step to uncovering program errors. 

(c) False. Really, now! 

(d) True. If a visual check of the program doesn’t uncover the problem, these 
are good next steps in the debugging process. 

(e) False. This procedure will only compound your problem by giving you 
hardware errors as well. 

(f) True. In fact, in our experience, when we ask a friend for debugging 
assistance, we end up consuming an average of three beers per person per 
‘‘bug.’’ At current prices (based on the beer we drink), this aid costs us 
$1.89 to $3.25 per ‘‘bug.’’ Cheap labor, but it’s heck on productivity. 


24. We have cleared our machine by typing NEW and entered the following 
program: 


198 REM**POSITIVE, NEGATIVE, ZERO PROGRAM** 

112 REM***MESSAGES TO USER 

128 CLS 

139 PRINT "ENTER A NUMBER AND I WILL TELL You IF" 
148 PRINT "YOUR NUMBER IS POSITIVE, NEGATIVE, OR ZERO." 
159 REM**REQUEST THE NUMBER** 

168 PRINT : INPUT "WHAT IS YOUR NUMBER?" ; TEST 

178 REM**DETERMINE IF NUMBER IN VARIABLE TEST IS** 
188 REM**POSITIVE, NEGATIVE, OR ZERO. ** 

198 IF TEST > @ THEN PRINT "YOUR NUMBER IS POSITIVE" 
288 IF TEST > @ THEN PRINT "YOUR NUMBER IS NEGATIVE" 
218 IF TEST = @ THEN PRINT "YOUR NUMBER IS ZERO" 

228 REM**GO ASK FOR NEXT NUMBER** 

238 GOTO 168 










Note: This program 
has an error in it! 
The error was put 
in so you could 
“‘debug’”’ the program. 









This program is taken from Chapter 5, frame 12. What does it do (or is sup- 
posed to do)? First, it clears the screen and displays a message to the user about 
the program’s function (lines 120 to 140). At line 160, the user’s number is ac- 
cepted and placed in the variable TEST. Lines 190 to 210 check the user’s 
number to see if it is positive, negative, or zero. An appropriate message is 
displayed based on the results of the checks. The program then loops back (line 
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230) to get another number for testing. But does the program do all this? Let’s 
RUN the program and look at the results. 


We type: RUN 


It types: ENTER A NUMBER AND I WILL TELL YOU IF 
YOUR NUMBER IS POSITIVE, NEGATIVE, OR ZERO. 


Yes, the number is positive. 


How can this be true? The program says our number, 5, is both positive and 
negative. On the following empty screen, show what the program should have 
done (assuming it was working correctly). 


WHAT IS YOUR NUMBER? _ 


We type: 


It types: YoUR NUMBER IS POSITIVE 
YOUR NUMBER IS NEGATIVE 





WHAT IS YOUR NUMBER? _ 

















WHAT IS YOUR NUMBER? 5 
YOUR NUMBER IS POSITIVE 


The correct display. 


What happens if we enter a negative number? Try one and see for yourself. The 
program doesn’t print anything! Exceedingly strange! Let’s go to the next frame, 
where we will begin a visual check of the program. We will find that ‘‘bug.’’ 





WHAT IS YOUR NUMBER? _ 


25. For the program in the last frame, press the BREAK key and stop the pro- 
gram execution. Let’s LIST the program, and see if we can visually find the 
problem. If you already know where the error is, stick with us for a while 
anyway, as we show others how to go about locating the error. 
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>LIST 
192 REM**POSITIVE, NEGATIVE, ZERO PROGRAM** 
118 REM**MESSAGES TO THE USER** 


128 CLS 

138 PRINT “ENTER A NUMBER AND I WILL TELL YOU IF" 
149 PRINT "YOUR NUMBER IS POSITIVE, NEGATIVE, OR ZERO." 
152 REM**REQUEST THE NUMBER** 

16@ PRINT : INPUT "WHAT IS YOUR NUMBER?" ; TEST 

17@ REM**DETERMINE IF NUMBER IN VARIABLE TEST IS** 
188 REM**POSITIVE, NEGATIVE, OR ZERO** 

198 IF TEST > 9 THEN PRINT "YOUR NUMBER IS POSITIVE" 
292 IF TEST > ® THEN PRINT "YOUR NUMBER IS NEGATIVE" 
218 IF TEST = @ THEN PRINT "YOUR NUMBER IS ZERO" 

228 REM**GO ASK FOR THE NEXT NUMBER** 

238 GOTO 168 


Look at the program. Start at the first line. Pretend you are the computer and 
mentally ‘‘execute’’ each statement. Lines 120 to 140 seemed to work. The screen 
cleared and the messages to the user appeared on the video display. The INPUT 
statement displayed its message. The input value goes into the variable TEST. 
OK, so far. Let’s see if TEST is spelled correctly in lines 190 to 210. Yep, it is! 
Misspelling a variable name is a common source of program errors. 

Well, let’s look closely at line 190. If TEST is greater than zero, line 190 
displays the message ‘“YOUR NUMBER IS POSITIVE.”’ Our number was 
greater than zero and the message was printed. Line 190 looks all right. 

What about line 200? If TEST is greater than zero . . . what?? Greater 
than? We just did that check in line 190! Maybe this is the source of the error. 

Let’s see . . . we’ve checked for positive values in line 190. Here we want to 
check for negative numbers. Oh! The relational symbol is reversed—it should be 
less than (<), not greater than (>). No wonder we got the strange double message 
when we tried the program. We told the computer to print the ‘‘negative’’ 
message if our number was greater than zero. So much for our typing skills. 


208 IF TEST > ® THEN PRINT "YOUR NUMBER IS NEGATIVE" 


ee 


The error just portrayed is typical of the mistakes that can occur. A simple 
typing error caused the program logic flow to be altered, producing seemingly 
unreasonable results. However, the results are perfectly consistent with what we 
told the computer to do. 


If TEST is greater than zero, display: 


—YOUR NUMBER IS POSITIVE 
—YOUR NUMBER IS NEGATIVE 


Consistent but wrong!! 


285 
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Don’t fix the error just yet. Let’s pretend our eagle eyes and quick minds 
did not find the problem during the visual check. If we still have the ‘‘bug,’’ we 
can explore some of the TRS-80 debugging features. 


26. The TRS-80 has two functions, built into its memory, that allow us to trace 
the flow of a program during execution. They are called (guess what?) the trace 
commands. They are: 


TRON—to turn the trace feature on. 
TROFF—to turn the trace feature off. 


The commands work both as immediate statements (you can enter them directly 
like NEW, LIST, and RUN commands) and from within a program. 

Let’s assume that we have been programming for several days, that our 
eyes are tired, and that we could find our mistake in our program from the last 
frame. We turn to the trace feature to try and get some insight into the problem. 

We first alter the program, entering trace commands in the neighborhood 
of the IF-THEN statements (lines 190-210). Let’s say we are convinced that the 
problem is occurring in that area of the program. 






We type: 185 TRON 
215 TROFF 












We start the trace here. 


We shut it off here. 


The trace features now bracket the three statements that contain the IF-THEN 
checks. LIST the program and see where the new statements fit into the flow. 


These are the same 
as before. 
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218 
“215 TROFF 


228 
232 


We RUN the program and enter the value 5 for TEST. Assume, once again, that 
the program line with the error has not been fixed. Look at what appears on the 
screen. 


Here are the 
two new inserts. 
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ENTER A NUMBER AND I WILL TELL YOU IF 
YOUR NUMBER IS POSITIVE, NEGATIVE, OR ZERO. 


WHAT IS YOUR NUMBER? 5 

<198> YOUR NUMBER IS POSITIVE 
——<288> YOUR NUMBER IS NEGATIVE 

<218> <215> 

WHAT IS YOUR NUMBER? -5S 

<199> <286> <218> <215> 

WHAT IS YOUR NUMBER? _ 






The trace feature, 
TRON, produces these 
numbers. 










We enter a 
negative number. 


The screen is going crazy!! The trace feature causes the line numbers of the pro- 
gram statements between the TRON and TROFF commands to be printed. The 
line numbers are enclosed in the symbols < and >. 


—Line 190 is the IF check for positive numbers. 
—Line 200 is the IF check for negative numbers. 
—Line 210 is the check for zero. 

—Line 215 is the TROFF command. 


What can be learned from the trace? For one thing, the program seems to 
be executing each of the statements. When a negative number is entered, no 
messages are displayed from the IF statements. But we still have no hint of the 
error, 

You can see from the example, however, just how the trace feature lets you 
observe the program flow. While TRON is active, the line number of each 
executing statement is displayed. 

To review quickly, the trace feature is turned on by the command 


; turned off by ________; when active, the trace feature prints 
the__.tt____—of the program statements being executed; the 


are displayed on the screen enclosed in these two symbols, 








TRON; TROFF; line number; line numbers; < and > 


27. Once more, stop the program by pressing the BREAK key. We now want to 
take the debugging and trace commands a bit more slowly. In the last frame, the 
line numbers from the trace appeared and the program went on to the next line. 
We want to slow things down and look at each step the program makes. 

To do so, we will place STOP statements at lines 195 and 205. The new 
statements will cause the program to pause at those points. We will then use 
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some immediate mode statements to do some debugging. Here is how it will 
work. We enter the two lines: 


195 STOP 
285 STOP 


If we LIST this new program, we get: 





Original program lines. 









Trace statements. 
New STOP commands. 







TROFF 


We now RUN the program, enter the value 5 for TEST, and observe the trace 
and pause features that we have added. 


We type: RUN 


It types: ENTER A NUMBER AND I WILL TELL YOU IF 
YOUR NUMBER IS POSITIVE, NEGATIVE, OR ZERO. 


WHAT IS YOUR NUMBER? _ 


We type: 


It types: <19¢> YOUR NUMBER IS POSITIVE 
<195> 
BREAK IN 195 
READY 








Trace is on. 
Program STOPs. 





We type: PRINT TEST 
It types: 5 


TEST has the correct value, and line 190 displayed a message indicating that 
TEST is positive. If there were other variables in the program, they could also be 
displayed in this manner. To continue the execution of the program, we type 
CONT, the BASIC command to continue program operations. 
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We type: cont 


It types: <299> YOUR NUMBER IS NEGATIVE 
<205> 
BREAK IN 285 
READY 


We type: PRINT TEST 
It types: 5 


TEST still has a value of five (5) and the message at line 200 is being 
displayed—definitely an error in this part of the program. Let’s try one more 
value for TEST. 










To continue program execution. 


Trace still on. Second 
STOP is encountered. 








We type: cont 


It types: <219> <215> 
WHAT IS YOUR NUMBER? _ 


We type: -s 


It types: <199> <195> 
BREAK IN 195 
READY 







Program STOPs. No message is printed. 


We type: PRINT TEST 
It types: -5 


TEST has the negative number and the message at line 190 is not displayed. This 


action is correct. We continue. 
Program STOPs. No message!! 


So TEST still contains the negative number, but the message did not appear. 
Let’s see . . . at line 200 we get the message when we shouldn’t (TEST = 5) and 
we don’t get the message when we should (TEST = -5). Line 200 must be the 
problem. 


We type: cont 


It types: <2@9> <205> 
BREAK IN 295 
READY 





We type: PRINT TEST 
It types: -5 


We type: List 296 
It types: 200 IF TEST > 9 THEN PRINT "YOUR NUMBER IS NEGATIVE" 


Examination of the line indicates that TEST is spelled correctly. That fact 
eliminates one possible source of error. Aha! The line says that if TEST is 
greater than (>) zero, then display the message. There is the culprit! The ‘‘greater 
than’’ symbol (>) should be a ‘‘less than’’ symbol (<). 

If we used the edit mode to fix the error in line 200, and to remove lines 
185, 195, 205, and 215, the program would work as intended. Make the changes 
and try it for yourself. 
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This frame concludes the discussion on debugging. You were given a brief 
introduction to the use of the TRS-80 trace features. Using the trace features, 
you can begin operating as a computer ‘‘sleuth,’’ tracking those nasty ‘‘bugs’’ 
that always seem to creep into programs. We used the trace commands on a sim- 
ple program with an easy-to-find error to show you how they work. When you 
encounter errors of a more complex nature, the techniques that were suggested in 
this frame will provide you with a powerful way to unravel the problems. 

Happy ‘‘bug’’ hunting!! 


28. Time for a break. This is the last rest frame before you jump into the Self- 
Test at the end of the chapter. While you rest, we will review all the material you 
have touched on in this editing and debugging section of the book. Relax and 
review. Then move on to the Self-Test section that follows. 


Review of © 
Editing Commands/Features 


EDIT<line number> Puts you in the edit mode; <line 
number> must be a valid line number in 
the program. 


[ENTER] key Exits from the edit mode. 
Moves cursor one space to right. 
key Moves cursor one space to left; will also 


delete characters when used with other 
edit commands. | 


key Search command—searches for the next 
key that is pressed. 

key List command. 

key End-of-the-line-and-insert 


command—moves the cursor to the end 
of the line and waits in the insert mode. 


(H] key Hack-and-insert command—deletes all 
characters from cursor to the end of the 
line; waits in insert mode. 


[1] key Insert command—allows insertions in 
the middle of the line. 
SHIFT Escapes from the insert mode. 
key Cancel-and-restart command—cancels 


all editing changes and repositions cur- 
sor at the beginning of the line. 


[D] key Delete command—deletes characters in 
the middle of the line. 
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key Change command—allows changes to 
characters in the middle of the line. 


(9) 


key Search-and-kill command—combines 
search and delete features. 


[-] 


key Save-changes-and-exit command. 
{Q] key Cancel-changes-and-exit command. 
Review of 
Debugging Commands/Features 
TRON Turn the trace feature on. 
TROFF Turn the trace feature off. 
STOP Break from the program. 
CONT Continue with execution. 
SELF-TEST 


Here’s your chance to prove how much you’ve learned in this chapter. 


1. You are in the edit mode on your TRS-80, in the middle of an insert (I) 
command. If you press the following keys, what happens? 


(a) key 
(b) 


© [sHiFT) [*) (Q) 





2. You have just moved the cursor to the position shown on the next screen. 
What key do you press to cancel the edit changes and restart the editing 
mode? 


Edit key 





>EDIT 18 
1@ PRINT"HELLO THERE MY F._ 


j 
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In the following questions, assume you are already in the edit mode and posi- 
tioned at the start of the line. The screen shows: 





12 


oars 


3. What edit keys would you press to move the cursor to the position shown 
in this line? 


19 A = B : PRINT "YES"; : Z$ = "FINE" 







Move cursor to here. 





Edit keys: 


4. Using the program line of question 3, how would you insert the word JUST 
before the word FINE, including a space after JUST? 


Edit keys: 
5. How would you delete the string (‘YES”’;? 










The string includes 
the semicolon (;). 


Edit keys: 
6. How would you go about changing the word YES to SAM? 
Edit keys: 
7. If youpress §S : , what else would you do to delete the string: 


8. What keys do you use to: 


from the line? 


Edit keys: 


(a) List the line in the edit mode? 
(b) Move the cursor to the end of the line? 


9. How would you delete the last statement: 


from the program line? 


Edit key: 
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10. How do you, within a program: 


(a) Turn the trace feature on at line 75? 
(b) Turn the trace feature off at line 125? 
(c) Cause the program to stop executing by pausing at line 27? 


(d) Resume execution after a STOP statement has been executed? 


11. What happens when TRON is put into a program? 


Answers to Self-Test 


The numbers in parentheses refer to the frames in the chapter where a topic is 
discussed. 


1. (a) The edit mode terminates. All editing changes are recorded. (frame 1) 
(b) The [t] stops the insert mode, if you are in an insert 
subcommand. The E key exits the edit mode, saving all edit changes. 
(frames 11, 22 
(c) The stops the insert subcommand, if any. The Q 
key cancels all edit changes and you leave the edit mode. The program 
line is unchanged, (frames 11, 22) 


2. The A key unless you are in the insert mode. Then you must press 
SHIFT before pressing A. (frames 11, 16) 
There are usually several ways to make editing changes. The way you do it may 


be different from the ones shown below. The important thing is: If your way gets 
the job done, fine!! Do it that way. 


a. [21 {s] GI) o jee 7] [Space bar] (frames 3, 6) 


The brackets 
indicate groups 
of keys that form 
a complete edit 
command sequence. 
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+1, © GS) CSpeba, cramer, 19 
lS) © GSecetar), OS Spas, 


(frames 6, 13) 


s. [s] C), £6) [D], (frames 6, 17) 
is OG) (), 8) [M] , (frames 6, 18) 


I ({K) EJyor G4 [D) , (frames 17, 20) 
8. (a) 5 (b) (frames 8, 9) 


21 bf) C),8,¢, 2) 8) 6). 2 B, 


(frames 6, 11, 17) 
10. Put the following lines in the program: 


(a) 75 TRON 

(b) 125 TROFF 

(c) 27 sToP 

(d) To continue program execution type: cont 
(frames 26, 27) 


11. The line numbers of all the program statements being executed are 
displayed on the screen. The line numbers are enclosed in the symbols < 
and >. The display of line numbers continues until a TROFF command is 
executed. (frame 26) 








CHAPTER TWELVE 


Graphics, Games, and Programs 
for the Home 








Sit back and relax. It’s almost graduation time. You have covered a lot of 
material in the last eleven chapters on how to program your TRS-80 computer. 
In this chapter, you will learn to do even more. What you are about to learn is 
not like the byte-(oops—bite-)sized stuff that you got used to in Chapters 1 
through 11. The other chapters have slowly and carefully presented you with in- 
formation about the BASIC language. Now we cut loose and use what you have 
learned to show you how fo take some first steps in the direction of building 
complete programs. 

Since you will need to put your attention on studying and understanding the 
programs that we present, this chapter contains no Self-Test. We encourage you 
to spend your time following the step-by- step methods we discuss, and changing 
and improving the programs. Sound like a lot of work? Yes, it will be. But what 
we show you about the graphical abilities of your TRS-80, the programming of 
games, and programs for the home will also be enjoyable and rewarding. Let’s 
take a peek at what we are going to do. 

First, we will tell you more about the TRS-80 graphics characters in- 
troduced in Chapter 8. These are the ‘‘characters’’ inside your computer that you 
use to make “‘pictures’’ on the screen. Each character has a unique ‘‘shape’’ and 
is about the size of a letter. You will learn to make the TRS-80 display these 
symbols from within a program, placing them anywhere on the screen. You will 
also be shown how to simulate ‘‘animation’’ using graphics characters. 
Remember . . . you have already done ‘‘animation’”’ with letters of the alphabet 
and strings, in several places, in the preceding chapters. 

Next, you will use what you learned about graphics characters to begin the 
construction of several games. The games will be primarily ‘‘fun’’ games, 
designed for the young children in your home. If you don’t have any young 
children, it is all right to go borrow some to try the programs on. 

Third, you will be shown how to construct a more elaborate game or 
simulation. In this game, the emphasis will be on using graphics on the screen 
and the design of a logic game that makes you think. By the time you reach this 
section of the chapter, you will have been introduced several times to a modular 
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approach to building programs. Modular refers to programming each part of the 
game or simulation section by section, testing each section as you go and con- 
necting new sections only after the old sections are already working properly. 

The final section, home management programs, shows how you might con- 
struct programs for use around the home. Two programs are developed as a 
starting point from which you are encouraged to create and build your home 
management library. The program library that each of you will produce with 
your TRS-80 is certain to be unique. We only wish we could hear about them all 
when the libraries are well developed. Hmmm... write to us at Recreational 
Computing, P.O. Box E, Menlo Park, CA 94025. 

We encourage you to type in the programs that are about to be discussed. 
Some of the programs are lengthy, but worth the typing effort. Run the pro- 
grams; make modifications; change the programs to do what you want them to 
do. When you get a program to run the way you want it to run, save it on 
cassette tape or disk (if you have one) as part of your new ‘“‘library.’’ 

Are you ready? Good! Let’s get on with the final chapter! 


1. Your TRS-80 has 63 special graphics characters built into the BASIC 
language. These characters are groups of lighted ‘‘dots’’ that can be placed on 
the screen. In fact, all the characters on the screen (letters, numbers, and special 
symbols) are constructed from these little dots of light. 

The BASIC language function that allows you to display one character 
from the set of 63 graphics symbols is CHR$. You have used this function back 
in Chapter 8 to PRINT letters and numbers on the video display. Do you recall 
that PRINTing CHR$(65) produces the same result as PRINT ‘‘A’’? CHR$ will 
work in the direct input mode, so CLEAR the screen and enter the following line 


of BASIC: 
We type: PRINT CHRS(65) 
It types: A 

READY 


>- 


CHR3$ generates a string that is one character long. The character produced is 
determined by the number placed within the parentheses following CHR$. If the 
number if 65, the letter A is generated. Using 66, we get the letter B; 67, the let- 
ter C; and so on. You probably notice that typing CHR$(65) is not the best way 
to get the letter A printed. It is simpler to use the string ‘‘A.’’ 

But using CHR$ to produce graphics characters is another story. Look at 
what happens when we enter the following codes along with CHR$. 


We type: PRINT CHRS(129) 
It types: 





a >PRINT CHR$(129) 
READY . 


> READY 
>PRINT CHR$(191) 


We type: PRINT CHR$(191) 

It types: # ee These are the first and 
READY last graphics characters. 
> 
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The character produced by CHR$(129) is the first symbol in the graphics 
character set. CHR$(191) generates the last character. When PRINT CHR$(129) 
is executed, a small rectangle of light appears on the screen. PRINTing 
CHR$(191) results in a large rectangle of light being displayed. 

Go ahead and try several numbers between 129 and 191 in a PRINT state- 
ment containing CHR$. There are a lot of ‘‘strange’’ characters inside your 
TRS-80. 


2. If you tried CHR$ in the immediate mode, you quickly noticed that it is 
difficult to remember just which graphics code produces each graphics symbol. 
There are so many of them! 

Well, let’s write a program that displays all the graphics symbols on the 
screen, at the same time. Enter the following lines for this program, and RUN it. 
What appears on the screen? Begin loop that selects 


each group of ten symbols. 
5 REM***DISPLAY GRAPHICS CHARACTERS** E ‘te 


19 FOR I = 129 TO 191 STEP 19 ~ 5 
Begin loop to print ten symbols. 
agK = 6 eu Compute character code. 
I 


F K < = 191 THEN PRINT CHR$(K)3 KF 


58 NEXT J End J loop. 
6@ PRINT : PRINT 
NEXT I 

End loop. 


The screen, when you RUN the program, should fill with lines of graphic sym- 
bols and graphic code numbers that produce those symbols. The first symbol is a 
small rectangle of light (129); the last symbol is a large rectangle (191). In be- 
tween, the screen is filled with all the other possible graphics symbols that your 
TRS-80 can produce. Perhaps, at first, it is difficult to see how these symbols 
might be used. But look closely; some of the symbols naturally suggest how they 
might be used. 


For example, the symbols for 151 ( r ) and 171 ( 1 ) look like the top of a 
periscope. Need a telephone? How about using 183 ( E ) and 187 ( 1 )? The 














Print one character. 
Test stops everything 
on last valid charac- 
ter code (191). 


eee 
Place one blank line under each 
line of printed symbols. 





symbol 153 ( , ) looks like a simple airplane. (Well, use your imagination a bit!) 


There are many other possibilities. But first, let’s discuss just how each 
character is constructed from ‘‘dots’’ of light. 


3. If you look at symbol 129 ( a ) closely, you can see that it is made up of 
four small dots of light. You may have to adjust the contrast (the C knob on the 
front of the video monitor) to see the dots clearly. In fact, upon inspection, all 
the graphics symbols are made up of these dots of light. 

But what is the difference between characters 129 and 130? At first, both 


look like they are the same character ( @ ). Examine them carefully. They are 
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almost identical, except for their placement on the screen. The character 131 


(™@) tells the story. This symbol is a combination of 129 and 130. 


curs(129)>[_ ] 9 cursa30. +L Ga — curs(131) 


In a way, we could say that character 130 is really the character 129 moved 
over one column. Also, 131 is really 129 printed where it usually is as well as be- 
ing moved over one column. You are probably already guessing where this is 
leading. Yes, all the graphics characters are composed of the basic symbol 129. 
The presence or absence of the symbol in the various positions of the overall 
character creates the unique character designs. We know that each character has 
two column positions. How many rows are there in each character? Look again 


at character 153 ( , ). 


Yes! There are three rows. So each character is made up of two columns 
and three rows. The basic building-block character, 129, is then used to construct 
each individual symbol. Here are some diagrams of the characters we have used 
up to this point in the discussion: 


He: & 


129 130 131 153 
151 171 183 187 


4. The video monitor on the TRS-80 is divided into ‘‘blocks’’ that are two 
positions wide and three positions tall. Each line on the monitor contains 64 of 
these character ‘‘blocks,’’ and there are 16 lines. This configuration gives a total 
of 1,024 ‘‘blocks’’ on the screen. Any graphics character (or standard letter, 
number, etc.) fits within one of the graphics blocks. The blocks are numbered in 
the following manner: 
















































































































































Each block is 
two units wide 
and three tall 


Block 961 
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The block numbering begins in the upper left corner. That block is 
numbered zero (0). The blocks on that line go from 0 to 63. Block 64 begins on 
the next line. The last block on the second line is 127. The last block on the en- 
tire screen is 1023. So there are blocks numbered from 0 to 1023, or a total of 
1,024 blocks on the monitor. 

To address one of these blocks, we use the PRINT @ statement. If we clear 
the screen and type PRINT @ 480, CHR$(191), a large rectangle appears near 
the center of the screen. 

Try several block positions and character codes for yourself. What happens 
if you print two graphics symbols side by side (in two adjacent blocks)? Try it! 
You might be surprised. 

One note of caution: In using the PRINT @ statement, if you hold down 
the SHIFT key while pressing the[@] key, the line looks all right but will give you 
a syntax error. So, if you get a syntax error and your typed line looks correct, 
retype the line but do not press the SHIFT key when pressing the[@]symbol. 


5. Clear the TRS-80’s memory and enter the following program: 
Generate a block number 














18 CLS 
28 BL = RND(1824) - 1 
38 PRINT @BL, CHR$(191); 






sanega nee Print the graphic symbol 191 
at the random Block location. 


at et 
So” 
Don’t forget to type this! 
Go to another block number. 


When you run this program, the screen clears and then begins to fill with the 
large rectangle produced by graphics code 191. Notice the interesting patterns 
that start to appear. If the program is allowed to continue running, the screen 
turns into a solid block of white light. (Except for the times that BL = 1023. 
When this occurs, the whole screen moves up one line when the graphics 
character is printed at this block location.) 

You can stop the program by pressing the BREAK key. Changing line 30 to 
print another graphics symbol produces other patterns on the screen. You may 
want to rewrite the program so that you can input the graphics code you wish to 
see printed. You may also want to add something to the program that will allow 
you to ‘‘freeze’’ the screen so that you can look at the pattern. Hmm! How 
would you be able to do that? Maybe the INKEY$ function would help. Go 
ahead and experiment with the program for a while. 

Here is one other experiment you may want to perform. Change the 191 in 
line 30 to RND(63) + 128. The line will now look like this: 


48 GOTO 28 





32 PRINT @BL, CHRS$(RND(63) + 128); 


What will this new line display? It picks a random graphics character to be 
printed at the random block location. Try it also! 


6. In the last frame, as the characters were printed on the screen, you may 
have noticed that when two or more symbols are near each other interesting 
designs start developing. . 
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Earlier, we indicated that two graphics symbols, 183 and 187, look like two 
telephones, ( E ) and ( | ). What will happen if we print these two characters 
side by side? Let’s try it first in the immediate mode. 


We type: PRINT CHR$(183) CHRS(187) 










This is the combination of 


2 <_————_—_____ ‘ 
It types | 183 and 187 printed together! 


READY 
> 


When the two symbols are printed next to each other, they appear as one larger 
symbol. It looks as though they are actually joined together. In one sense, we 
have ‘‘added”’ them, or joined them to form the new character, the rectangle 
with a hole in it. In TRS-80 BASIC, there is a formal way to join character com- 
binations. It is called catenation. (You did this with strings of letters back in 
Chapter 8.) 


—Take two or more string variables. 

—Put a plus sign (+) between variables. 

—The result is a string variable made up of all the elements of the in- 
dividual strings that you started with. 


For example, if we put a plus sign (+) between the two CHR$ functions in the 
PRINT statement, we get the same result on the screen. 


We type: PRINT CHRS(183) + CHRS(187) 


It types: = | 


READY 
> 

Why don’t you try some combinations of characters and string variables. 

Notice: The result of CHR$ is a string variable of one character in length!! 





7. If we change the program from frame 5, adding another CHR$ in line 30, 
we get the following: 







1% CLS 

28 BL = RND(1624) - 1 

38 PRINT @BL, CHR$(183) + CHRS$(187)% 
48 GOTO 26 


The joining of the symbols CHR$(183) and CHR$(187) give the small rectangle, 
8 , from the last frame. The program, when it is RUN, places the combined 





Here is new line. Two 
graphics symbols have 
been catenated! 





shape all over the screen. Change the program and RUN it. 

Hit the BREAK key when you wish to stop the program. So it is possible to 
place several graphics symbols on the screen, at the same time, creating a new 
symbol or form. What happens if we add another character to the two being 
printed in line 30? 
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Let’s try it. Rewrite line 30, and add the graphics character 153 to what is 
already being displayed. 


38 PRINT @BL, CHRS(183) + CHR$(187) + CHR$(153)3 


When RUN, this new program now displays all three characters at once. The 
combined characters look like a new graphics symbol—one that is put directly on 
the screen. 

Constantly changing and retyping line 30 is a pain in the keyboard! How 
about a program that lets you select the number of graphics codes you wish to 
see? The program could then ask you for the codes and display the graphic sym- 
bol that you design. Look at the following program: 


5 REM***CREATE-A-CHARACTER PROGRAM*** 
1@ CLS 
2@ INPUT "NO. OF CHARACTERS"; NC 


3@ CLS : PRINT @896, "CHAR CODES:'"; 

48 FOR I = 1 TO NC 

58 PRINT 28, STRING$(28," ") : PRINT @%, "CHARACTER CODE"; 
68 INPUT CC 

72 PRINT @478 + I, CHRS(CC); 

8a PRINT @993 + 5*I, CC; 

98 NEXT I 


Enter the program into your TRS-80. We will run this program and discuss what 
it does in the next frame. 


8. If we RUN the program in the last frame, this is what occurs: 


—The screen is cleared (line 10) and a request appears on the display for 
the ‘NO. OF CHARACTERS” (line 20). The input is placed in the 
variable NC. You may enter a number from 1 to 10. 

—The screen clears again, and the message ‘‘CHAR CODES:”’ appears 
at the bottom of the screen (line 30). The bottom area of the display 
will be used to store the character codes that you use to construct your 
graphics symbol. 

—A loop is started for the number of codes to be entered (line 40). NC 
is the value input in line 20. 

—The first PRINT statement in line 50 uses the STRING$ function to 
clear the first line of the screen. Twenty spaces are printed beginning 
at block zero (0) of the first line of the display. This action clears the 
line but does not affect anything else on the screen. The second 
PRINT statement displays the message that precedes the request for 
the input of a character code. 

—The character code is accepted (line 60) and placed in the variable CC. 

—The character code is used to display the graphics symbol (line 70). 
The symbols are placed on the screen with a PRINT @ statement 
beginning at block 470+ 1 or 471. Each successive character is placed 
in the next available block position. Thus, the characters are joined on 
the display as if they were one solid symbol. 
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—The record of the codes you used is updated (line 80). The codes are 
placed at block 903 plus multiples of 5 times the loop counter, I. Line 
90 ends the loop. 


Try the program using several different combinations of character codes. 
What kind of interesting forms can you construct on the screen? What appears if 
you enter the following five codes: 178, 179, 180, 181, 182? An alien spaceship? 
It does look like one! 

Also, this program constructs combined symbols on only one line of the 
screen. How would you go about modifying the program so that you could con- 
struct larger symbols that use up more of the screen? Let’s see. . . if we could 
input the block number as well as the code we wish to use, then we could place 
the symbols anywhere. Why don’t you give this program modification a try? The 
current program and the one you might develop based on the above suggestions 
may be helpful to you when you later wish to design special ‘‘characters’’ for any 
games or simulations that you put together. 


SPACESHIP AHOY! 


9. Once you have found a set of character codes that you wish to use as a new 
graphics symbol on the screen, you need a simple way to store and recall the set. 

One way is to store the entire sequence of CHR$ produced characters in a string 

variable. If we store our alien ‘‘spaceship’’ (codes 178, 179, 180, 181, and 182) in 
the string variable A$, we can then print the combined symbol at will. 


We type: AS = CHR$(178) + CHR$(179) + CHRS$(188) + CHR$(181) + CHRS(182) 
PRINT A$ 


It types: Sit 


READY 
> 


To use the string variable in a program, we have several methods of 
creating the combined symbol. Here is one way to do it. Clear the memory of 
any old programs by typing NEW. Then enter the following program: 


5 REM***SPACESHIP DISPLAY*** Start loop on codes. 
18 CLS 
28 FOR I = 178 TO 182 


30 AS = AS + CHR(I) Build up string. 
4Q NEXT I Display combined string 
5@ PRINT @ 478, A$ near center of monitor. 


When a character is ‘‘created’’ in this way in a program, it can then be used 
anywhere within the program. Using the string variable to hold the symbol saves 
typing and memory space in the program. 
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If you have several symbols that are to be used in many places in a pro- 
gram, you can store them in string variables and then recall them when needed. 
Displaying the symbols with the PRINT @ statement gives you the capability to 
do a lot of ‘“‘fancy’’ graphics on your TRS-80. Putting graphics into your pro- 
grams will make them more interesting, especially to children. 


10. By adding a couple of lines to the program in the last frame, we can turn 
our ‘‘spaceship’’ into a UFO (Unidentified Flashing Object). Add these lines to 


the program: 
Clear the screen and delay again. 


Return and print the symbol again. 









62 GOSUB 128 Call the delay routine. 


78 CLS : GOSUB 188 
88 GOTO 58 
108 FOR I = 1 TO 208 : NEXT : RETURN 


The delay routine. 


When you RUN this modified program, the ‘‘spaceship’’ appears near the center 
of the screen, and winks in and out of existence. If you change the delay counter 
in line 100, you can make the ship wink either faster or slower. 

Press the BREAK key when you wish to stop the program. Can you begin 
to think of uses for the capabilities we have discussed so far? We have covered: 












—The TRS-80 graphics characters 

—Use of CHR$ to put characters on the screen 
—Combining several graphics characters 

—uUsing string variables to store combined characters 
—Making a group of characters ‘‘flash’’ on the screen 


As you begin to develop your own programs and applications, you will 
notice more and more opportunities to add graphical displays to your routines. 
Graphics sometimes enhance and simplify your output displays in ways that pure 
typed text cannot do. In developing new programs, experiment with your TRS-80 
graphics characters. They are one of the more powerful features of your com- 
puter. 

What we will cover now is how to make your ‘‘spaceship”’ warp off the 
edge of the monitor. Are you ready? Yes! Blast off! 


11. To make the ‘‘spaceship’’ move, we need to alter the program so that the 
illusion of motion is produced by repeated printing and erasing of the screen. 
Two minor changes to the existing program produce this result. Here is the entire 
program with the two altered lines: 


5 REM***SPACESHIP DISPLAY*** 
18 CLS 

2@ FOR I = 178 TO 182 

32 AS = AS + CHRS(I) 

4@ NEXT I 

5@ FOR J = @ TO 35 STEP 5_3 
6a GOSUB 128 

72 CLS : GOSUB 128 
89 NEXT J : GOTO 58 
188 FOR I = 1 TO 286 


PRINT @ 470 + J, AS 











The two altered lines 





: NEXT +: RETURN 
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Line 50 was changed to include the beginning of a loop whose loop counter is 
used in the PRINT @ statement to ‘‘move’’ the A§ string across the screen. The 
first time through the loop, the string is printed at block location 470; the second 
time, at 475; and so on until the ‘‘ship’’ reaches the edge of the monitor. Line 80 
was changed to contain the NEXT statement for this loop. Program control is 
then returned back to line 50. 

When this program is RUN, the ‘‘ship’’ moves to the edge of the screen, 
winks out of existence, and then appears back at the center to begin the journey 
again. Could Mr. Spock do any better? 

It’s time for you to create other graphics characters and experiment with 
making them flash and move about on the screen. How would you get the 
“‘ship’’ to warp off the screen at an angle—not just straight up or side to side? 
How would you make the ‘‘ship’’ vibrate and ‘‘glimmer’’ before it winks off the 
screen or appears back at the cénter? The effect is something like the image on 
the TV screen when the ‘‘transporter’’ beam on Star Trek is active. This effect is 
possible to reproduce on your TRS-80. Give it a try! 


12. With the information on graphics behind you, it is now time to get 
“‘serious’’ about games. In the next few frames, we will develop a motor skill 
game, one that is good for smaller children. We will unfold the game in modules, 
doing a piece of the overall game at a time. We want to give you a feel for how 
you might go about producing your own programs. 

Since many games use a board, let’s start by looking at a routine that prints 
a board (or many boards) on the screen. The concept we use in this module can 
be modified to produce nearly any kind of board. Our boards will have a simple 
structure, and will use only the graphics character asterisk (*) to represent board 
positions. 

Enter and examine the following routine: 


999 REM***BOARD GENERATOR*** Select board shape. 
1828 CLS 


1918 INPUT "TRIANGLE OR RECTANGLE/SQUARE(T,R,S)"3 AS Select board size. 
INPUT "“SIZE(HEIGHT, WIDTH —- MAX :.1@8 BY 18)"; H, W 


’ 
IF H > 18 OR W >\1@ THEN 1929 Efest for Yoo tig. for too big. 
CLS : IF AS = "T" OR AS = "S" THEN W =H 


FOR I = @ TOH - 1 Start height loop, 
ww = W- 1: IF AS = "T" THEN WW = I 


iatbow : re oa a ec cae Set width if ‘‘Triangle’’ 
2 is required. 
NEXT J : NEXT I : RETURN a 


Close loops and return 
to main program. 





f 
























Print character at 
correct I,J position. 


What? One routine to set up any sized triangular, rectangular, or square board? 
Yes, that’s what this routine is designed to do. Notice that we have constructed 
the program as a subroutine. In this way, we can use the routine in the develop- 
ment of our game, but we can first test it without the entire game structure being 
around. Let’s do just that! Enter the following small main program and type 
RUN: 





—. 
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5 REM***MAIN PROGRAM*** : 
18 GOSUB 1998 : END «—————¢ Call the subroutine. 


13. When the program to display boards is RUN, the routine clears the screen . 
and requests an input for the type of board to be displayed— triangular (T), rec- 
tangular (R), or square (S). This activity occurs in lines 1000 and 1010. 

Next, a board size is requested (line 1020). The dimensions of the board are 
stored in variables H and W. Line 1030 then checks these two variables against 
the maximum sizes allowed. For this routine, the maximum size for any board is 
10 by 10. 

Line 1040 clears the screen again, and sets W to H when the board is a 
triangle or a square. Line 1050 starts the height loop—the loop that controls how 
high the board is to be. 

Line 1060 sets the loop counter for the width loop upper limit. WW, the 
width loop upper limit, is set to W - 1 for rectangles and squares. For triangles 
(when A$ = ‘‘T’’), the upper limit for each line of the board varies. Since the 
upper limit varies directly with the height counter, WW is set to I each time. For 
triangles, if W and H are not the same value (22, or 3x3, etc.), the size of the 
triangle will always be Hx H. 

The width loop starts in line 1070. 

The board positions are displayed by line 1080. Each position is marked by 
an asterisk (*). The block number where the asterisk is displayed is computed. 
The first asterisk is placed in block 64. The rest of the asterisks on the first line 
of the board are placed at 68, 72, etc. This positioning is controlled by the addi- 
tion of J*4 to the initial starting block position (64). The addition of 1*64 to the 
starting block position controls which line is being printed. When I = 0, the first 
line is being printed; when I = 1, the second line; and so on for each line 
needed. 

Line 1090 contains the end points for both height and width loops, and the 
RETURN statement to get you back to the main program. 

If we RUN the program, ask for a triangular board (T) of size 5x5, the 
screen shows: 





Try several board shapes and sizes on your own. Keep experimenting with 
the program until you get bored with boards. 


14. Ready for the next routine? How about a subroutine that lets you ‘<drive’’ 
around the boards produced by the last routine? That would be a nice tool to 
have in your “‘library.’’ But how can that be done? 


a 
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Well, it will involve using several TRS-80 features such as the INKEY$ 


function and the ASC function. We will also use the graphics technique of 
“‘flashing’’ that we talked about earlier in this chapter. Also, we will make the 
routine smart enough so that it works on rectangles, squares, or triangles. Quite 
a deal! But, it does require some typing. Once this routine is added to what you 
already have in memory (the board display subroutine), you may want to save 
everything on cassette tape or disk. Here is the new routine: 


1969 
28868 
2618 
2928 
2030 
2240 
2859 
28628 
2878 
2288 
2898 
2188 
2118 
2128 
2130 
2146 
2158 
2168 
322 







REM***FLASH AND MOVE ROUTINE*** 
T=uH-1:J=we-1: Bs" " 
KK = 64 + 64*I + 4*J : PRINT @KK, " as 
GOSUB 3828 : PRINT @kKK, "Y"; 

GOSUB 3292 

C$ = INKEY$S : IF C$ <> "" THEN BS = C$ 
TSI ¢ We J 

IF ASC(BS) = 91 THEN II 
IF ASC(B$) = 18 THEN II II +1 
IF ASC(BS) <> 91 AND ASC(BS) <> 18 THEN 2128 
IF II < @ OR II > H - 1 THEN sora 


Hou 





PRINT akK, "*"; : I = II : aoe 2919 Check for + and <. 


IF ASC(BS$) 8 THEN JJ = JJ - ia Let esa) ‘ : 
IF ASC(BSO 9 THEN JJ = JJ + if fcheck for edge of board. ears board, 
irks = tana uo tr teen esi] ~ GPa we Pe) 


IF AS = "T" AND JJ > II THEN 2912 


PRINT @KK, "*"3; : J = JJ +: GOTO 2 ED 
FOR TT = 1 TO 188 : NEXT : RETURN Delay routine for ‘‘flash.’’ 





IF AS = "T" AND II < JJ THEN 2819 


When you have entered this routine, change line 10 of your program to: 


18 GOSUB 1888 : GOSUB 2826 


Go ahead and RUN this program. You will be asked for a board shape and size. 
Then you will see the board appear, and the letter Y will start flashing in the 
lower corner of the board. At this point, if you press the following keys, the let- 
ter Y will move about the board: 


Moves the letter up the board. 
Moves the letter down the board. 
Moves the letter to the /eft. 
Moves the letter to the right. 


Note; The program will not allow you to move ‘‘off’’ the board. Also, once you 
have started the letter moving in a particular direction, it continues to move that 
way until it either hits the edge of the board or you change its direction. 


Experiment with different board shapes and sizes. The next frame discusses 


what each line in this subroutine does. 


15. 


Let’s examine what each line in the last subroutine (frame 14) is doing. 


—Line 2000: Saves the dimensions of the board in I and J. Sets B$ to a blank 
(‘* ’’) to start. 
—Line 2010: Computes the block location of the letter Y. The letter starts in the 
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lower corner of the board. To begin the flashing of the character, a blank is 
printed at that location. 

—Line 2020: Call on the delay routine (line 3000). Then the letter Y is printed. 

—Line 2030: Call on the delay routine again. This operation completes the 
flashing operation. 

—Line 2040: Use the INKEY$ function to strobe (read) the keyboard. If a key 
has been pressed, put the keystroke into B$. If no key was depressed, B$ re- 
mains whatever it was from the last time through the loop. 

—Line 2050: Set temporary location variables II and JJ to the current position of 
the letter. 

—Line 2060: Test for B$ = ft .If BSisan t , ASC(B$) = 91. A move up 
the board is indicated, and the temporary position counter is decreased by one. 

—Line 2070: Test for B$ = + .If BSisan 4 , ASC(B$) = 10. A move 
down the board is indicated. The position counter is increased by one. 

—Line 2080: If B$ is notan + or 4, then go check for moves to the right 
and left. 

—Line 2090: Check to see if move is off the board (top, bottom). 

—Line 2100: For triangles, check to see if off board (top, bottom). 

—Line 2110: Move is good. Put an asterisk in the current block location (where 
the letter is). Set the height indicator, I, to the new position, II. Go back to the 
flashing part of the routine. 

—Lines 2120-2160: Repeat the same kind of tests for left and right movements 
on the board. 

—Line 3000: The delay routine. 


Short, but very powerful! Now, how can we make a game out of this? Let’s see, 
we can move about the board at will. What if we were searching as we moved, or 
trying to catch something? That’s it! Let’s pretend there is a dragon on the 
board, and that we are to catch the dragon. Look to the next frame for how we 
might do this. What does happen when you catch a dragon? 


16. To add a dragon to our game, we enter the following lines of BASIC. Our 
dragon has some unusual properties. First, the dragon hops around the board 
randomly. He never seems to stay in one place very long. Also, every once ina 
while, he jumps right into your arms. So, if you are patient, you will always 
catch the dragon, even sitting still, When you catch the dragon, you get a magic 
spell of your choice. 


3982 REM***DRAGON SECTION*** 

4999 IF AS = "T" AND DI < DJ THEN RETURN 

4919 IF DC <> @ THEN PRINT @DK, "*"; 

4928 DK = 64 + 64*DI + 4*DJ 

493@ DC = DC + 1 

4848 PRINT @ OK, "D"; 

4958 RETURN 

4198 PRINT @ 896, "YOU CAPTURED THE DRAGON IN"; DC; 
4118 PRINT "DRAGON MOVES" 

4128 PRINT “CONGRATULATIONS —- YOU GET A MAGIC SPELL OF YOUR 
CHOICE!" 

4138 FOR TT = 1 TO 2888 : NEXT 

414@ CLS : GOSUB 1942 : GOTO 28 


a i ES SS 
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Puts ‘‘Y’’ on 
the board and } 
starts flashing. 





48 DI = RND(H) - 1 : DJ = RND(W) - 1 in different locations each time. 
P agon 58 GOSUB 4988 : GOSUB 2948 ~ : 
i 69 IF DK = KK THEN 4199 Select location for dragon. 


dragon caught. 


Enter the lines shown above into your computer, and add the following 


lines to your main program: 
Lets you choose board and 
size. Displays board. DCi Nkoont ovek 


RANDOM used to srtart dragon 















18 GOSUB 1928 
28 GOSUB 2868 
38 DC = 8 : RANDOM 



















78 GOSUB 2948 ae 5 
89 IF DK = KK THEN 4198 ELSE 49 CCK AOE YOUR MOVE, LOU 
move twice for every dragon 
move, 









If dragon not caught, move dragon 
and begin again. 





Also, change line 2000 to read: 


2088 GOSUB 3828 : RETURN 


Enter the new lines, and RUN the program. Try catching the dragon on dif- 
ferent boards of various sizes. The next frame will discuss what each of these 
new lines of program does. Have fun catching the dragon! 


17. The subroutine that puts the dragon on the board does the following: 


—Line 4000: Checks for a valid location on a triangular board. 

—Line 4010: If the dragon has moved once, an asterisk (*) is placed where the 
dragon currently sits. This line is not executed the first time through the pro- 
gram (DC = 0). 

—Line 4020: Computes the block location for the dragon. 

—Line 4030: The dragon-move-counter is increased by one. 

—Line 4040: Puts the dragon on the board, in the new location. 

—Line 4050: Returns to calling program. | 





The end-of-the-game messages are in lines 4100-4130. Line 4140 is a delay 
so that the messages can be read. Line 4150 clears the screen, sets up the same | 
board again (GOSUB 1040), and then returns to the main program at the point 
where the game is begun. 
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‘The main program module does the following: 


—Line 10: Calls on routine that lets you choose the board and the size of the 
board, and then displays the board on the screen. 

—Line 20: Calls on that part of subroutine 2000 that-sets up the ‘‘flashing’’ of 
the letter Y. 

—Line 30: Initializes the dragon-move-counter, DC, and calls on the RANDOM 
function so that the placing of the dragon is different each time you start the 
game. 

—Line 40: Selects a random location for the dragon. 

—Line 50: Calls routine that puts the dragon on the board (subroutine 4000), 
and then calls on the routine that allows you to make your moves (subroutine 
2040). Note: With this last GOSUB to 2040, we enter the routine that was 
called in line 20 at a different point. 

—Line 60: Checks to see if the position of the dragon, DK, and your position, 
KK, are the same. If they are, the game is over. The program branches to line 
4100 for the end-game messages. 

—Line 70: Calls on routine that allows you to make your moves. Note: This is a 
second time we go to this routine. You get two moves for every one move 
made by the dragon. It’s only fair! The dragon can fly all over the place. 

—Line 80: Again, a check for an end-game condition is made. If the dragon is 
not caught, a branch back to line 40 is made. At line 40, a new dragon loca- 
tion is computed, and the game continues. 


SOME IMPORTANT MESSAGES!! 


—If you have not saved this program on tape, do so now. We will be moving on 
to other programs. You don’t want to lose this one, if you have spent time 
typing it into the TRS-80. (Refer to your User’s Reference Manual or Appen- 
dix B for instructions on saving programs on tape.) 

—This game can be changed and enhanced in many ways. You could make the 
dragon move about differently. You could slow him down; make him move 
faster. Try to make one of these changes yourself. Can you think of other 
changes or enhancements that could be made? 

—We have built up an entire game from separate modules. Building programs in 
this manner is usually a good way to test out the individual sections of the 
game or application. It also tends to reduce errors. We were careful, though, 
to avoid variable name conflicts among all the various routines. 

—The next frame gives the entire listing of the ‘‘Dragon Capture’’ program. This 
is for your easy reference should you want to reenter or change this program at 
a later date. 
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18. Here is a listing of the ‘‘Dragon Capture’’ program: 


5 REM***MAIN PROGRAM —- DRAGON CAPTURE*** 

12 GOSUB 1882 

22 GOSUB 2992 

3@ DC = S: RANDOM 

48 DI = RNO(H)-1: DU = RND(W)-1 

5@ GOSUB 4998: GOSUB 2949 

68 IF DK = KK THEN 4189 MAIN PROGRAM 
7® GOSUB 2949 

88 IF DK = KK THEN 4198 ELSE 42 


988 REM***BOARD GENERATOR *** 

1928 CLS 

1812 INPUT "TRIANGLE OR RECTANGLE/SQUARE(T, R, S)"3 AS 
1828 INPUT "SIZE(HEIGHT, WIDTH - MAX: 18 BY 18)"; H,W 
1232 IF H > 18 OR W > 19 THEN 1920 












1949 CLS : IF A$ = "T" OR AS = "S" THEN W =H 
LOSE FOR: FS @ TO) Aad ta BOARD SELECTION/ 
1266 WW = W - 1: IF AS = "T" THEN WW = I 


1978 FOR J = # 70 ww DISPLAY SUBROUTINE 


1988 PRINT @ 64 + 1*64 + J*4, "*" 
199@ NEXT I : NEXT J +: RETURN 


1988 REM***FLASH AND MOVE ROUTINE *** 

2088 1 =H- 1: J=>W- 2: BS =" 

2818 KK = 64 + 64*I + 4*3 : PRINT @ KK, " " 
2028 GOSUB 3988 : PRINT @ KK, "Y"; 

2638 GOSUB 32988 : RETURN 

2648 C$ = INKEYS : IF CS <> "" THEN BS = C$ 

2058 Il =I: JJ = VJ 

2869 IF ASC(BS) = 91 THEN II = II - 1 

2676 IF ASC(BS) = 18 THEN II = II + 1 

2088 IF ASC(BS) <> 91 AND ASC(BS) <> 18 THEN 2129 
2999 IF II < @ OR II > H - 1 THEN 2919 


LETTER Y MOVE 
SUBROUTINE 







2188 IF AS = "T" AND II < JJ THEN 2919 
2118 PRINT @ KK, "*";: I = II: GOTO 2919 
2128 IF ASC(B$) = 8 THEN JJ = JU - 1 
2138 IF ASC(BS$) = 9 THEN JJ = JJ + 1 
2148 IF JJ < @ OR JJ > W - 1 THEN 2919 
2158 IF A$ = "T" AND JJ > II THEN 2810 


2168 PRINT @ KK, "*"3: J = JU: GOTO 2019 
3828 FOR TT = 1 TO 198 : NEXT : RETURN 


3988 REM***DRAGON SECTION*** 

4928 IF AS = “T" AND DI < DJ THEN RETURN 

4018 IF DC <> B® THEN PRINT @ DK, "*"; DRAGON ROUTINE 
4829 DK = 64 + 64*DI + 4*DY 

4838 DC = DC + 1 

4042 PRINT @ DK, "D"; 

4858 RETURN 


4198 PRINT@896,"YOU CAPTURED THE DRAGON IN";DC; 

4118 PRINT " DRAGON MOVES" 

4128 PRINT “CONGRATULATIONS - YOU GET A MAGIC SPELL OF YOUR 
CHOICE" 

4138 FOR TT = 1 TO 2888 : NEXT 
4148 CLS : GOSUB 1848 : GOTO 298 












END-GAME MESSAGE AND 
BOARD REDISPLAY ROUTINE 
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19. Let’s construct another game in a modular fashion. This program, designed 
for small children, is a shape-matching exercise. The child is presented with four 
arbitrary ‘‘shapes’’ and a single shape selected at random from the four. The 
program asks the child to match the single form to one of the four original 
shapes. When the child responds, the single shape moves up the screen and is 
placed next to the matching form. The single shape then ‘‘flashes’’ several times, 
and the program asks if the user wants a new set of shapes. The program com- 
bines several techniques that you have used earlier in this chapter. 

First, we construct the portion of the program that generates and displays 
the four shapes. The shapes are generated randomly! 


18 REM**SHAPE MATCHING PROGRAM** ‘ 
28 DIM AS$(4) {String array for four shapes. 
38 FOR C 1 TO 4 
wn S 
48 AS(C) Set to null string (empty). 
1 TO 4 f 


58 FOR S 
[<2 A$(C) A$(C) + CHRS$(RND(63) + 128) 
78 NEXT S : NEXT C 















Do once for 
each shape 
to be made. 









Clear screen 
and set screen 
to large char- 
acters. 







89 CLS : PRINT CHRS(23) characters together to make 
98 FOR C = 1 TO 4 shape. 
188 PRINT 149 + (C - 1)*128, C; + AS(C) 
118 NEXT C 










Put shapes at locations: 
140, 140+ 128, 140+ 256, 
and 140 +384, 





The graphics codes run from 129 through 191. The argument to CHR$ in line 60, 
RND(63) + 128, randomly selects one of these codes. The graphics character for 
the selected code is then catenated (attached) to three other characters and placed 
in one of the A$-array positions. The PRINT CHR§(23) in line 80 sets the screen 
so that all display is in the larger character format (32 characters wide). Enter 
and RUN this part of the program. The screen will show something like the 
following (Remember! The shapes change each time.): 


Four random shapes 
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20. Now we can add the part of the program that selects the single shape to be 
matched, displays that shape, asks for the number of the matching shape, and 


checks for a 





Print messages 
and shape. 










Accept number 
and validate. 


The move routine. 


match. Here goes! 


c = SNe oaayan mein =v nave {Pen ota mae) 

ick one shape number. 
PRINT @788, "MATCH ME!! " + A$(C) 
PRINT 0998, 


"WHAT NUMBER AM 1?" 
Z$ = INKEYS : IF Z$ = "" THEN 158 ELSE Z = VAL(Z$) 
IF Z < 1 OR Z > 4 THEN 148 
IF Z = C THEN 258 
PRINT 0896, "NO...I AM NUMBER "; 
GOSUB 1899 
PRINT 02896, "WANT ANOTHER SHAPE?" 
Z$ = INKEY$S +: IF Z$ = "" THEN 218 
IF zs = "Y" THEN 38 
CLS : PRINT @469, "THANKS FOR PLAYING...BYE!! 


PRINT 2896, "THAT'S RIGHT...WATCH we yn <—h Maeh? 


GOSUB 12828 
GOTO 2828 Go to request for new game. 


c; " WATCH! !" 
Request for nex 
set of shapes and 
check of input. 














In line 150, the function VAL is used to convert the key that is pressed into a 
numeric value. If 1 to 9 is pressed, Z is assigned the appropriate value from 
VAL. Any other key produces a zero. A check is made in line 160 for the keys 1 
to 4. If some key other than 1 to 4 is pressed, the request is repeated. 

The program needs the subroutine beginning at line 1000 before the last 
part can be checked out. However, if you enter the following line, you can run 








the program: 
1988 FOR T = 1 TO 3868 : NEXT : RETURN 


This just puts a short delay in the program so the screen can be observed. RUN 
the program. The screen should look something like this: 


Four random shapes 


One of the shapes 
also picked at random 














MATCH ME!! "sual 
WHAT NUMBER AM I? 


21. In the last set of statements, an appropriate message is displayed based on 
whether there is or is not a match. Then a call is made on the routine that moves 
the shape up the screen. The following is that move routine: 
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998 REM**SHAPE MOVE ROUTINE** Sew blanks} 


Delay routine. 
1918 PRINT 0894. Z% : GOSUB 2088 
1928 FOR S = 6 TO 2 STEP -1 
1932 PRINT @168 + (S - 1)*128, Z$ 
















Blank area where 
shape is now. 






Check to see if 
shape is on the same 
line as its match. 









Move shape up the 
screen beside the 
figures already there: 










1848 GOSUB 2988 
1858 PRINT @168 + (S ~ 2)*128, AS$(C) 
1968 IF S - 1 = C THEN 1999 
1978 GOSUB 2928 : 

1989 NEXT S Blink the shape 

1999 FOR = 1705 five times, 

1198 GOSUB 298 

1118 PRINT @168 + (S - 1)*128, Z$ 

1128 GOSUB 2922 Clear the message 

1138 PRINT 0168 + (S - 1)*128, AS(C)_{ area on the screen. 

1142 NEXT 

1158 PRINT @896, STRINGS(38," ") 

1168 Z$ = INKEY$ : RETURN 4 Clear the keyboard and return. 

2898 REM***DELAY ROUTINE 

2818 FOR T = 1 TO 25@ : NEXT T Delay subroutine. 

2628 RETURN 
Enter this part of the program and RUN the game. The screen will show the four 
random forms and messages as before. Now, when you enter a number, the pro- 
gram prints the message of whether you guessed right or not, and the shape then 
“‘moves’’ up the screen. It will move until it is beside its matching shape. Once 
there, it blinks five times. The program then requests a response from you as to 
whether you wish another game. Try it!! 


22. A complete listing of the last program follows. First, though, let’s look at 
some of the things in the routine that moved the shape. 

Each shape is made up of four graphics characters. To ‘‘animate’’ a 
character and make it ‘‘move,’’ we have to blank the area where it currently sits, 
and then display the character farther up the screen. The variable Z$ is filled 
with four blanks. It is printed when we wish to blank the shape. Lines 1010, 
1030, and 1110 clear the area where the shape resides. Lines 1050 and 1130 
redisplay the character in the new positions. 

The first loop, from 1020 to 1080, moves the symbol up the screen. There is 
a check at line 1060 to stop the loop when the shape is beside its matching sym- 
bol. The second loop, lines 1090 to 1140, flashes the character once it is in place 
beside its matching symbol. 

Line 1150 clears the message area below the MATCH ME!! line. Line 1160 
clears the keyboard, in case several keys were pressed by the user, and returns to 
the main program. 

Can you think of any interesting variations of this game? What if you 
placed the symbols not in a column but anywhere on the screen? Then the child 
would have to search for the character a bit more. Also, you could replace the 
numbers with random letters. That would teach recognition of the keys on the 
keyboard. How about changing the program to give the child another chance if a 
match is not made the first time? There are many possibilities for this program. 
See if you can come up with more. 
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The principal use of this program might be for you to borrow ideas on the 


graphics techniques for your own programs. In any case, have fun with the pro- 
gram. 


23. 


18 
28 
38 
42 
52 
6g 
78 


8a 
92 
166 
118 


128 
132 
142 
158 
160 
170 
182 
198 
282 
218 
228 
230 
248 
258 
268 
276 


998 
198 
191 
162 
1283 
184 
195 
126 
127 
128 
189 
118 
111 
112 
113 
114 
115 
116 


228 
201 
282 


The next frame contains a complete listing of the program. 


Listing of the ‘‘Shape Matching”’ program: 


REM**SHAPE MATCHING PROGRAM** 


DIM AS$(4) 
FOR C = 1 70 4 
As(c) = "" 
FOR S$ = 170 4 
AS(C) = AS$(C) + CHRS(RND(63) + 128) 
NEXT S NEXT C 

CLS PRINT CHRS(23) 
FOR C = 1 TO 4 

PRINT 0148 + (C - 1)*128, C3; "  " + AS(C) 

NEXT C 

C = RND(4) 

PRINT 0788, "MATCH ME!! " + AS(C) 

PRINT 2988, "WHAT NUMBER AM 1?" 

ZS = INKEYS : IF zZ$ = "" THEN 158 ELSE Z = VAL(Z$) 
IF Z < 1 O0R Z > 4 THEN 148 

IF Z = C THEN 259 

PRINT 2896, "NO...I AM NUMBER "; Cs; " WATCH!!"” 
GOSUB 1292 

PRINT 2896, "WANT ANOTHER SHAPE?” 

Z$ = INKEYS : IF Z$ = "" THEN 218 

IF zs = "Y" THEN 38 

CLS : PRINT 24698, "THANKS FOR PLAYING...BYE!!" 
END 


PRINT @896, "THAT'S RIGHT...WATCH ME!!" 
GOSUB 1892 

GOTO 288 

REM***SHAPE MOVE ROUTINE 

2g Z $ jm ” " 

@ PRINT @884, Z$ GOSUB 2282 
@ FOR S$ = 6 TO 2 STEP -1 
®@ PRINT @168 + (S - 1)*128, Z$ 

@ GOSUB 29288 
@ PRINT 0168 + (S - 2)*128, AS(C) 
@ IF S$ - 1 = C THEN 1899 
@ GOSUB 2928 
@ NEXT S 
@ FOR = 1705 

@ GOSUB 2886 
@ PRINT @168 + (S - 1)*128, 2$ 
@ GOSUB 2889 
® PRINT @168 + (S - 1)*128, AS$(C) 
@ NEXT 
@ PRINT @896, STRING$(39," ") 
@ Z2$ = INKEYS RETURN 
@ REM***DELAY ROUTINE 
@ FOR T = 1 TO 258 NEXT T 
@ RETURN 
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24. The next program is an ancient and classic game of Jogic. The game is 
challenging and not that easy to complete in the minimum number of moves. The 
game is called ‘‘Frogs.’’* 

‘‘Frogs’’ is a game in which two sets of four objects are placed on a nine- 
position board. One set is placed to the left, the other to the right. This position- 
ing leaves a vacant spot in the center. The game consists of completely reversing 
the two sets of objects. The only legal moves are either a slide of one object to 
an empty position or a jump of one object over one other object to a vacant 
place. 

The game looks like this at the start: 


HOOHRG HFEEe 
1! 2 #3 4 6 7 #8 9 


5 


The only legal moves, at the beginning, are: a slide from 4 to 5; a slide from 6 to 
5; a jump from 3 to 5; a jump from 7 to 5. The object of the game is to have the 
pieces end up this way: 


1 2 3 4 5 6 7 8 9 


You might want to lay some objects on this page of the book and try the 
game by hand. You can use pennies (heads and tails), pennies and dimes, buttons 
in two colors, or whatever you have handy. By the way, it is possible to com- 
pletely reverse the objects in 24 moves!! 


“The game was presented as a computer program by Mac Ogelsby in the People’s Computer Com- 
pany newspaper, Nov.-Dec. 1976 issue. The program in its present form appeared in Recreational 
Computing magazine, Vol. 7, No. 3, Nov.-Dec. 1978. 
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25. Here is a complete listing of ‘‘Frogs.’’ Enter and RUN the program. 


18 REM**FROGS - A GAME OF LOGIC** 
28 DIM P(9) 
3@ BS = CHRS$(191) + CHRS(179) + CHRS$(191) 








48 CS = CHRS(191) : C$ = CS + CH + CH: AS =" " 
5@ CLS : FOR F = @ TO 8: PRINT 0528 + 4*F," " + CHRS(F + 49) +" "o 
NEXT 7 
aracters 1-9. 
6@ FOR F = 1704 : P(F) = 1: P(F + 5) = -1 : NEXT : C = B Print © pice 
70 PRINT 018, STRING$(38," ") : PRINT 019, "FROGS" 





Print characters to 


88 FOR F = 0 TO 3: PRINT 2464 + 4*F, BS 
: be used as ‘‘frogs.”’ 


9@ PRINT 0484 + 4*F, CS : NEXT 






188 PRINT 074, STRINGS(26," ") +: PRINT @74, "FROM?" 

119 F% = INKEYS : IF FS = "" THEN 118 ELSE F = VAL(FS$) 

128 PRINT 288,F : PRINT 84, "TO?" : IF FS = "S" THEN 1878 
138 FS = INKEYS : IF FS = "" THEN 138 ELSE T = VAL(FS$) 

148 PRINT @88, T : PRINT @28, STRINGS(23," ") : C=C #1 
158 IF FS = "S" THEN 1972 


168 IF ABS(T - F) > 2 THEN 198 

178 IF T = @ OR F = ® THEN 1998 

188 IF T - F = 0 OR P(T) = 1 OR P(T) = -1 THEN 198 ELSE 288 

199 C = C - 1 : PRINT 028, “ILLEGAL MOVE - TRY AGAIN" : GOTO 188 


288 IF ABS(T - F) > 1 THEN 238 i 4 
Mov 

219 S = F : X = 464 : GOSUB 2888 : S = T : GOSUB 4888 ove is a slide 

228 GOTO 269 

238 S =F: X = 464 : GOSUB 29028 : X = 


: 49 : GOSUB seas |. 
249 GOSUB 2989 : S = T : GOSUB 4868 Move is a jump. 
258 GOSUB 2488 : X = 464 : GOSUB 4996 


262 P(T) = P(F) : P(F) = @: S=8: T= @ 
278 FOR F = 1704: S$ =S$ + P(F) : T = T + P(F + 5) : NEXT 
289 IF S = -4 AND T = 4 THEN PRINT 074, "YOU DID IT IN ", C 
" MOVES” ELSE 188 


298 PRINT @22, "WOULD YOU LIKE TO PLAY ANOTHER GAME?" 
Check for end of game. 


302 F% = INKEYS : IF FS = "" THEN 328 
Blank scren where 


318 IF FS = "Y" THEN 5@ 
move was made from. 



















32@ PRINT @128, "THANK YOU FOR PLAYING - BYE!!" 
339 END 


2990 PRINT @X + 4*(S - 1), A$ +: RETURN 
3098 FOR J = 1 TO 388 : NEXT : RETURN 
4998 IF P(F) = 1 THEN 4919 ELSE 4828 

4919 PRINT @X + 4¥*(S - 1), BS : GOSUB 3888 : RETURN 
4928 PRINT aX + 4*(S - 1), C$ : GOSUB 3988 : RETURN 








Delay subroutine. 


i 


Prints ‘‘frog’’ with 
hole in center. 


Prints Solid ‘‘frog.’’ 


When you run the program, the screen shows the ‘‘frog’’ symbols like those in 
frame 24. The program requests two numbers: where you are moving from, and 
where you are moving to. There is no need to press the ENTER key. The 
INKEY$ function is used to scan the keyboard and pick up your entries. 











GRAPHICS, GAMES, AND PROGRAMS FOR THE HOME 317 


Go ahead and try the game! The next frame provides some comments on 
what is happening within the program. You can look at that information when 
you wish. Can you do the ‘‘Frog’”’ game in 24 moves? 


26. The following comments apply to the program in frame 25, the ‘‘Frogs’’ 
game. This program has used nothing new to you. It just provides another exam- 
ple of how you can incorporate the graphics capabilities of your TRS-80 in your 
own applications. 


—Line 20: The array P is used to mark the positions of the ‘‘frog’’ symbols on 
the screen. 

—Lines 30-40: The ‘‘frog’’ symbols are constructed. 

—Line 50: This line clears the screen, and places the numbers 1-9 on the screen. 
CHR$(49) is a zero, CHR$(50) is a one, and so on. 

—Line 60: The starting positions of the game are marked. Symbols with the 
holes are given the value 1 in the P array; solid symbols the value -1. A zero in 
the P array indicates an empty board position. The variable C is the move 
counter. 

—Lines 70-90: Places the ‘‘frog’’ symbols on the screen. 

—Lines 100-190: This part of the program handles the input of the player’s 
moves. If the letter S is pressed, the game ends. The check at line 160 is for an 
attempt to jump more than two spaces on the board. Line 180 checks for a 
jump to the piece’s present place and for jumps to occupied positions. 

—Line 200: Check for a jump or slide. 

—Line 210: Move is a slide. The parameters S and X provide information on a 
piece’s position. S is set to either F (from position) or T (fo position). X is set 
to either 464 (the line on the screen of the board) or 400 (the line above the 
board). The last setting is for a jump. The routine at 2000 erases a symbol 
from the screen. The routine at 4000 displays the symbols. 

—Lines 230-250: Move is a jump. 

—Line 260: The P array is marked with the value of the moved piece. S and T 
are set to zero for use in next line. 

—Line 270: Sums of the left and right place markers are computed. 

—Line 280: If S is -4 and T is 4, the game is complete. 

—Line 2000: Erases the symbol from the current position. 

—Line 3000: Delay routine for slowing down jumps. 

—Line 4000: Check for solid symbol or symbol with hole being moved. 

—Line 4010: Prints the symbol with the hole in the center. 

—Line 4020: Prints the solid symbol. 


What would be some interesting changes to this program? Why not redesign 
the ‘‘frog’’ symbols so that they look like frogs? You could even add legs that 
move during jumps. 

Well, enough games!! Time to get to the ‘‘serious’’ stuff. Read on!! 
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27. There are many possible ‘‘serious’’ applications that you can program on 
your TRS-80. We will demonstrate a couple of routines that you might find 
useful around the home. The emphasis in presenting the programs is still on the 
techniques of the BASIC programming language. So, even if you don’t find the 
applications of interest, you may still be able to use some of the procedures in 
your own programming tasks. 

We start with a program that allows you to search a file of data on names, 
addresses, and telephone numbers, and extract the records that match a search 
key that you specify. 

The file, in this case, is contained in DATA statements within the program. 
You could generalize this routine to a larger data base that is perhaps stored on 
tape or disk. However, we will demonstrate the program using only DATA 
statements. 

In fact, to keep things simple, we will use only two data records. The 
records will be the names, addresses, and telephone numbers for two people: 


Jack Jones 1511 Westport Dr. Menlo Park, CA 94025 415/555-0707 
Jane Jonarts 1521 Westbury St. Menlo Pk., Calif. 94025 415/555-1975 





Adding more data records will only complicate the running and testing of the 
program. We have deliberately chosen two data records that are similar in many 
respects so that we can demonstrate the search capabilities of the program. 

The program that we will design will search each data record by: first 
name, last name, street address, street name, city, state, zip code, or area code. 
The search key can be from one to several letters long. If an exact match is 
needed, you can use more letters. If fewer letters are used, all records that match 
the search key are displayed. Sounds like a lot, doesn’t it? The program is ac- 
tually quite simple. Move on to the next frame to see what it looks like. 


28. Here is the program for the computerized directory search: 


18 REM**COMPUTERIZED DIRECTORY SEARCH** 


20 DIM |N1$( 19 yyN2$( 18) 4A1$( 18 1 4AZS( 19 1 4CS( 19 )4S$( 1 428 ( 12,7 $( 12) 
Get number of 


38 CLS : INPUT "NUMBER OF DATA ITEMS: "3; D : GOSUB 1292 ¥ : 
4@ CLS : PRINT “COMPUTERIZED DIRECTORY" data items in 
5@ PRINT STRINGS(22,"—") file and call 
6@ PRINT @256, “WHAT DO YOU WANT TO DO? SEARCH BY:" input routine. 



















78 PRINT @328, "  1- FIRST NAME" 

82 PRINT @384, "  2- LAST NAME" 

98 PRINT 2448, "  3- STREET ADDRESS" Print “‘menu”’ 
199 PRINT 2512, "| 4- STREET NAME" of selections. 
119 PRINT 0576, "  5- cITy" 

128 PRINT 02649, " 6- STATE" ‘Accept ‘‘menu’’ 
138 PRINT 0794, "  7- ZIP CODE" selections and 
148 PRINT @768, , 8- AREA CODE" . validate it. 
152 PRINT 2832, 9- STOP THE PROGRAM 

16@ KS = INKEY$S : IF K&S = "" TEN 168 ELSE K = = t 

179 IF K = 9 THEN END a et the search 
189 IF K = @ THEN 168 key. 

198 CLS : INPUT "ENTER THE SEARCH KEY: "; KS : P = @ 
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Loop through 
data file and 

branch to specific 
search item. 













292 FOR N = 1 TO D : ON K GOTO 2168,228,238,248,250,268,278,289 
218 IF LEFTS(N1$(N),LEN(KS$) ) KS THEN 29@ ELSE 329 
226 IF LEFTS$(N2$(N),LEN(KS$)) K$ THEN 298 ELSE 328 
238 IF LEFTS$(A1$(N),LEN(KS) ) K$ THEN 298 ELSE 329 
248 IF LEFTS$(A2$(N),LEN(KS) ) KS THEN 298 ELSE 328 
258 IF LEFTS(CS$(N),LEN(K$) ) THEN 298 ELSE 329 
268 IF LEFT$(S$(N),LEN(K$) ) K$ THEN 298 ELSE 329 
270 IF LEFTS$(Z$(N),LEN(KS$) ) K$ THEN 298 ELSE 3298 
288 IF LEFTS(TS(N),3) KS THEN 298 ELSE 3298 





Test for 
match with 





Heute kt vw tow ow a 
xn 
wn 











298 PRINT @256 + P*64,N1$(N) + " " + N2$(N)3 TAB(25)3; A1S(N) + " " + A2S(N) 
388 PRINT @256 + (P + 1)*64,CS(N) + " " + SS(N) + " " + Z$(N)3; TAB(48)3 TS(N) 
318 P =P +2 ve 

5 Sip REST ON Increment the screen position index. Danie da 

338 PRINT @786, "HIT ANY KEY TO CONTINUE:" view output. 
348 K$ = INKEYS : IF KS = "" THEN 349 ELSE 49 







1868 REM**DATA INPUT ROUTINE** Loop to 
1618 FOR N = 1700 read data 
1829 READ N1$(N),N2$(N),A1$(N),A2$(N),C$(N),SS(N),Z$(N),TS(N) records. 
1838 NEXT N : RETURN 


1248 DATA "JACK", "JONES","1511", "WESTPORT DR.", "MENLO PARK", 

"CA", "94925","415/555-8797" Data 

1095S DATA "JANE", "JONARTS","1521", "WESTBURY ST.","MENLO PK.", records 

" no ” oe 
CALIF","415/555-1975 

Enter and RUN the program. What appears on the screen? Look at the next 

frame for the answer! 


29. When the program in the last frame is RUN, the screen clears and the re- 
quest for the number of data items appears. If you enter a 2, thé two data 
records in lines 1040 and 1050 are read into the appropriate arrays. The screen 
then clears again and the ‘‘menu”’ of selections appears. The screen shows: 














WHAT DQ YOU WANT TO DO? SEARCH BY: 
1~ FIRST NAME 

2- LAST NAME 

3- STREET ADDRESS 
4- STREET NAME 

S- CLlry 

6- STATE 

7- ZIP CODE 
8- AREA CODE 
9- STOP THE PROGRAM 





The program then waits for you to enter a number from 1 to 9. If you enter 9, 
line 170 causes the program to end. If you enter a number in the range 1 to 8, 
the ON K GOTO statement in line 200 will cause one, and only one, of lines 210 
to 280 to be executed. 


288 FOR N = 1 TO D : ON K GOTO 218,229,238,248,258,266,278,280 
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The ON K GOTO statement in line 210 tells the computer: 


If K is 1, then GOTO 210 

If K is 2, then GOTO 220 

If K is 3, then GOTO 230 
and so on 


K=1K=2K=3 K=4K=5 K=6 K=7 K=8 
ON K GOTO 218, 228, 238, 248, 258, 268, 270, 288 


When you do enter a number, the program then requests a search key. For 
menu items 1-7, the key can be from 1 to as many characters as you wish to 
enter. For item 8, you must enter three area code digits. 

Let’s say we elect menu item 1, a search by first name, and enter the letter 
J for the search key. The screen will show: 









ENTER THE SEARCH KEY: J 







Both JACK JONES 1511 WESTPORT DR. 
vueniils MENLO PARK CA 94825 415/555-2787 
displayed JANE JONARTS 1521 WESTBURY ST. 

: MENLO PK. CALIF 94825 415/555-1975 


HIT ANY KEY TO CONTINUE: 


Pressing any key will cause the ‘‘menu’’ to reappear. What would appear on the 
screen if a search by first name were made with the key JAC? 


30. If menu selection 1, a search by first name, and the key JAC is entered, the 
screen shows: 







JAC 





ENTER THE SEARCH KEY: 





JACK JONES 1511 WESTPORT DR. 
MENLO PARK CA 94825 415/555-8787 


HIT ANY KEY TO CONTINUE: 


Why does this occur? Well, the search key is three letters long, and only matches 
exactly with the first three letters of Mr. Jones’ first name. The key does not 
match Ms. Jonarts’ first name in the first three positions. So only the record for 
Mr. Jones is displayed. 


Does match in us Does not match in 


first three letters first three letters 
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If the search key had been JA, both records would have been put on the 
screen. Let’s examine line 210 of the program where this matching operation is 
taking place. 


218 IF LEFTS(N1$(N),LEN(K$)) = K&S THEN 298 ELSE 329 


The search key is in K$. N1$(N) contains the first name of the Nth record being 
examined. The function LEFT$ extracts the leftmost characters from N1$(N) 
based on the length, LEN, of K$. That is, the number of characters looked at in 
N1$(N) is determined by the length of the search key.- 

All the other searches are carried out in the same way in lines 220-270. The 
search for the area code in line 280 is the only different kind of match. This last 
match is made on exactly the first three characters of the telephone number field, 
TSN) 

Try the various ‘“‘menu’’ selections, and use different search keys. Notice 
how quickly the TRS-80 is able to scan the records and display the results of the 
search. 

Can you think of a way to really simplify the program? Hint: Change the 
arrays that are being used to one array!! If one data array, say D$, is used with 
dimensions D§(8,10), lines 210-270 reduce to a single line in the program: 


IF LEFTS$(D$(K,N),LEN(K$)) = K&S THEN 298 ELSE 328 


Amazing!! The entire search-and-display section reduces to just a few lines of 
BASIC! What else could you do with this program? The techniques shown here 
would work on any data file. Instead of names and addresses, you might have a 
parts inventory or lists of business accounts. 

But our search is over! Time to move on to another example. 


31. Well, this ends the current chapter and the book. We trust you have had an 
enjoyable and rewarding time going through this Self-Teaching Guide. It has 
been our pleasure to accompany you on this adventure with your TRS-80 com- 
puter. We look forward to working with you again in our next book on the 
TRS-80 machine. In it, we will cover the many BASIC language elements that 
were beyond the scope of the present book—PEEK and POKE statements, the 
USR function, disk operations, creating and using large files, and much more. 
Goodbye, for now, and happy computing!! 
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Setting Up Your TRS-80 








The basic TRS-80 system consists of four components: 


Keyboard/computer 
Power supply 

Video monitor 
Cassette tape recorder 


The last three of these units must be connected to the jacks on the rear of the 
keyboard unit. The correct unit must be connected to the corresponding jack. 
Each jack is labeled as shown in this sketch. 


T Vv P 
A I oO 





Rear View of the TRS-80 Keyboard Unit 


The jacks are notched at the bottom so that the correct connections will be 
made to the five pins of each connector. 


The Power Supply 


Two wires come out of the power supply. The gray wire has a connector on the 
end that is plugged into the jack labeled POWER on the back of the keyboard 
unit. 
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Rear of keyboard unit 









Vv P Wall socket 
T I Oo 
Ww 

Pea ECD ECD 
E oO R 


To power jack 







Black wire 


Power Supply Connections 


I’m sure you have all plugged in lamps, toasters, etc. to a wall socket. You 
should take special care when plugging in the power supply to the rear of your 
TRS-80 keyboard unit. The notch on the power connector helps in aligning the 
five pins. A sketch of the connections is shown below. 





2. Low voltage DC 





4. Ground 5. Not used 


1. Low voltage AC 3. Low voltage AC 


Keyboard Power Jack (as viewed from rear of keyboard) 


The TRS-80 needs three voltage levels for its operation: +12 volts, +5 
volts, and -5 volts. The +12 and -5 volts are needed for the Random Access 
Memory (RAM) and the +5 volts is needed almost everywhere. The power sup- 
ply steps down the AC voltage to voltages that the computer can handle. Inside 
the power supply unit there is also a fuse connected to the transformer primary 
winding. This protects the computer from irregularities in power coming from the 
wall socket. 

The most probable cause for a failure in the power supply unit is a blown 
fuse. Since the unit is sealed, the power supply should be taken to your Radio 
Shack store if any problems develop. 


The Video Monitor 


The video monitor also has two connectors. The gray wire coming from the front 
of the monitor is connected to the keyboard unit. The connection is made to the 
jack labeled VIDEO. The wire that goes to the AC socket has a plug with two 
prongs, one wider than the other. The wide prong should go to the widest slot of 
the AC socket. Do not use an extension cord for this connection. Use a direct 
connection to a wall socket if it is at all possible. 
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Rea: view of keyboard unit 









Power 
i 120 volts AC 





Line up pins 
Wide prong to 
wide slot 


Gray wire 
Video Monitor Connections 


The gray wire that goes from the monitor to the rear of the keyboard unit 
also has five pins. The jack on the keyboard unit is shown below. 


2. Not used 





5. Ground 
3. Not used 


4, Video signal 
1. +5 volts 


Video Jack (as viewed from rear of keyboard unit) 


The Cassette Recorder 


You do not need to connect the cassette recorder unless you are going to record 
programs or load previously recorded programs. However, if you are going to 
use the recorder, follow these instructions. 

The recorder cable has one plug with a five-pin connector on one end, and 
three separate plugs on the other end. 


1.‘ Plug the end with the five-pin connector into the rear of the keyboard unit 
at the jack labeled TAPE. 


T 
| A 
P 
E Small gray plug 


Larger gray plug 


Black plug 
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2. Connect the black plug on the other end of the recorder cable to the EAR 
jack of the tape recorder. This connection provides the output signal from 
the recorder to the TRS-80 for loading taped programs. 

3. Connect the larger gray plug to the AUX jack of the tape recorder. This 
connection provides the recording signal from the TRS-80 to the recorder 
for recording programs that you want to save on tape. 

4. Connect the smaller gray plug into the REM jack of the tape recorder. This 
allows the TRS-80 to automatically control the cassette recorder’s motor 
(turns the motor on or off as programs are loaded or saved). 

5. There is a dummy plug (plug with no connecting wires) that should be plug- 
ged into the MIC jack when you are saving programs on tape. This 
prevents the microphone from picking up room noises that would spoil the 
program that you are saving. 

6. Finally, connect the recorder’s two-prong plug into a 120-volt AC outlet. 


AC 
outlet 


mMu> a 


Rear of keyboard 





Power Up 


To power up the computer, all the connections that we have mentioned should be 
made. Then: 


1. Press the power button on the video monitor. Give the video tube a few 
seconds to warm up. 

2. Press the ON button (next to the cable connections on the rear of the 
keyboard unit). When you have completed these first two steps, the red 
light on the right side of the keyboard (near the front) should come on. 
Also, the words MEMORY SIZE? should appear on the video screen. 


\_ ON/OFF button 


Red ‘‘pilot’’ 
light on 


ant] 
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3. If you were going to program in machine language, this would be your op- 
portunity to protect a section of memory for your machine language pro- 
gram (a program we don’t cover in this book). For normal use of BASIC 
language programs, however, you will not need to protect any memory, so 
you just press the ENTER key. The video display now responds with: 





RADIO SHACK LEVEL II BASIC 
READY 
> 


4. The computer is READY. Are you? If so, go to it. Happy programming!!! 


In case your TRS-80 doesn’t power up the first time, wait a few seconds 
and try the power up procedure again. Check all the connections to see that they 
have been properly made. 
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The Cassette Recorder 


A cassette recorder is provided with the basic TRS-80 system for saving and 
loading programs that you write. It also is used to load taped programs that you 
acquire from other sources. 

Level II BASIC transfers data from the recorder to the computer (and vice 
versa) at a rate of 500 BAUD (twice the speed of Level I). The volume setting on 
the recorder is very critical and should be set at a lower setting for Level II tapes 
than for Level I. Volume settings are discussed in more detail later in this ap- 
pendix. 


Saving Your Programs 


If you have a program in the computer’s memory that you would like to save for 
future use, the recorder must be connected as described in Appendix A. Then: 


1. Put the recorder in the RECORD mode by pressing down both RECORD 
and PLAY buttons. Use a volume setting approximately midway (4-6 on 
the Radio Shack CTR-41 recorder). 


The command CSAVE followed by a file (or program) name is used to record 
programs on tape from the computer’s memory. The file name may be any 
alphanumeric character except quotation marks. The name is enclosed in quotes. 


Examples: CSAVE ‘‘1”’ 
CSAVE ‘‘A”’ 
CSAVE ‘‘B’”’ 


You should always write file names on the cassette case for later reference. 
It is also helpful to write the index setting (of the recorder) along with the file 
name so that the program can be found quickly in the future. 
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2. On the computer, now type: 


CSAVE "A" OR whatever file name 
i you want to use 
and press the ENTER key. 


The recorder motor should be automatically started by the computer, and 
the program is then recorded. After the recording is completed, the computer will 
turn off the recorder (hopefully—see ‘‘Recorder Problems”’ in this appendix). 
The READY message will be displayed on the screen. 


CSAVE "aA" 
READY 
> 





It is a good idea to CSAVE a program more than once on the same tape in case 
something should happen to one copy. This can be done by leaving the recorder 
in the RECORD mode and typing: 


CSAVE "A" and pressing the ENTER key again. 


Once again the computer starts the recorder motor, records the program, 
and turns the recorder motor off. The READY message is again displayed on the 
video screen. When finished, press the STOP button on your recorder. 


Checking Recorded Programs 


After recording a program, it is advisable to immediately check the recording 
while the original program is still in the computer’s memory. Then, if there was 
an error in the recording, the original can be recorded again. This check can be 
made by following these steps: 


1. | Rewind the cassette to the point where the recording of your program 
started. 

2. Press the PLAY button on the recorder. 

3. On the computer, type: 


cLoAD? "A" and press the ENTER key. 





or whatever file 
name you are using 





Note the ? mark 


The computer will then compare the tape recording with the original program in 
the computer’s memory. If there are any discrepancies, the message: BAD will be 
displayed on the video screen. In that case, you should CSAVE the program 
again. If the tapes match correctly, the recording was good, and the READY 
message is again displayed. 
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GOOD RECORDING BAD RECORDING 


CLOAD? "A" CLOAD? "A" 
READY 
Se 





Loading Taped Programs 


The volume settings recommended by Radio Shack for loading cassette tapes on 
a Level II system with the CTR-41 tape recorder are: 


User-taped programs 4-6 
Radio Shack prerecorded programs 5'/2-6'/2 


For prerecorded tapes by other manufacturers, you will probably have to experi- 
ment to find the volume setting at which they will load correctly. (See ‘‘Recorder 
Problems’’ in this appendix for help.) 

To transfer a prerecorded program to the computer’s memory: 


1. Connect the recorder as discussed in Appendix A. 

2. Insert the cassette containing the prerecorded program and rewind the 
cassette to the beginning of the desired program. 

3. Press the PLAY button on the recorder. 

4. On the computer, type: 


CLOAD "A" <«<—————- or the file name of 
the program that you 
want 


and press the ENTER key. 


The computer turns on the recorder’s motor. After a few seconds, two asterisks 
should appear in the upper right corner of the screen. The right asterisk should 
blink (usually at an irregular rate). When the program has been completely 
transferred, the computer stops the recorder’s motor and gives its READY 
message on the screen. 


CLOAD "A" 





| 


If all went well, turn off the recorder. The program is loaded. Type: 
RUN 


| Happy computering!! 


a 








332 TRS-80 BASIC 





Recorder Problems 


The audio cassette recorder provides an inexpensive means to store programs and 
data files outside the computer. Keep in mind that the recorder was not originally 
designed for this purpose. It is a cheap alternative to floppy disk drives. 
Although far from perfect, it does beat loading programs from the keyboard 
each time that you want to use them. 

Use of the tape recorder for digital purposes requires great patience, 
understanding, and care. Here are some problems that you may encounter, and 
some suggestions that may prove helpful. You may not agree with all of them. 


—Use high-quality, certified digital tapes. Poor-quality audio tapes may have im- 
perfect magnetic coatings with some spots that would be undetectable when 
playing music or voices. However, a loss of one bit of data during the save or 
load of digital data may spoil a good program. 

—Keep the heads of your recorder clean and demagnetized. Special tapes are 
available that can quickly be ‘‘run through”’ the recorder to clean or 
demagnetize the heads. Special cleaning liquids are also available. 

—Be consistent in using a given volume setting when recording and loading your 
own taped programs. 

—Use short tapes and record only one program on each side of the tape. 

—Record a given program several times on the tape. 


If you follow the above suggestions, only minor problems should arise 
when loading or saving your own tapes. 

Big problems may arise, however, when you try to load tapes from other 
sources. You must patiently try different volume settings until a good load is ac- 
complished. Recording levels will vary from manufacturer to manufacturer and 
from tape to tape. Levels have even been known to vary within-a given taped 
program. 


—Once you correctly load a tape from an outside source, make a copy of it by 
saving it with your own volume settings. 

—Don’t hesitate to return a program that you have purchased if you cannot get 
it to load correctly. Not all preprogrammed tapes on the market are perfect, as 
mass duplication of tapes is as yet an ‘‘imperfect art.’’ The return rate is high. 


There are products on the market that enhance the recorded data. They 
make it possible to load tapes within a wide range of volume settings. Some are 
done by hardware (a ‘‘black box’’ attached between the computer and recorder) 
and others are done by software (which must be loaded in from a cassette). 

Inside the TRS-80 lives a relay that is supposed to turn the recorder’s motor 
on or off at the correct time. But relays have been known to stick, so that 
sometimes the recorder may keep on turning after a program has been successfully 
loaded. At other times, you may punch the PLAY button on the recorder and 
find that the recorder reaches the beginning of a prerecorded program before you 
can type in CLOAD. 


—If this condition persists, don’t hesitate to have your Radio Shack store replace 
the relay (within the warranty period, if possible). 
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Arithmetic 








Arithmetic Operators 


The symbols used by the TRS-80 differ from the normal arithmetic symbols for 
division, multiplication, and exponentiation found in a mathematics text. 


+ for addition §5+4=9 
= for subtraction 9-6 =3 
for multiplication 7*2 = 14 
/ for division 14/3 = 4.66667 
3 for exponentiation 7Tt3 = 343 


Order of Operations 


The order in which arithmetic operations are performed by the computer con- 
forms to the normal order used in arithmetic and algebra. 


1. Operations within parentheses are performed first. If parentheses are nested 
(one pair within another pair), operations within the innermost pair are per- 
formed first, then evaluation proceeds to the next pair out. Otherwise, the 
order is from left to right. 


5*(4 + (3/(2+ 1)) + 1)*(6-S5) Innermost first 

= 5*(4+ (3/3) + 1)*(6-5) Then next pair out 
= 5*(4+1+41)*(6-5) Now the left one 

= 5*6*(6-5) Then the right one 
= 5*6*1 Then multiplication 
= 30 
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2. Exponentiation (raising to a power): 





3*214 Exponentiation first 
= 3*16 Then multiplication 
= 48 
3. Negation (-5): 
—542 Exponentiation first 
=-25 Then negation, as: -(5t2) not (-5)t2 
or 
-542*3 Exponentiation first 
= ~-25*3 Then negation 
=-75 Then multiplication 


4. Miultiplication or division (from left to right): 


-542*3/5 Exponentiation first 
= -25*3/5 Then negation 
=~-75/5 Then multiplication (left) 
=-25 Then division (right) 
5. Addition or subtraction (from left to right): 
-542-9/3*4 + 40 Exponentiation first 
= -25-9/3*4 + 40 Then negation 
= -25-3*4+ 40 Then division, multiplication 
=-25-12+40 left to right 
=-37+40 Then addition, subtraction 
=3 left to right 


Scientific Notation 


Both large and small numbers can be very long, such as: 


1234567890000000000 
or 
0.00000000000123456 


Using single-precision arithmetic (the TRS-80 normal mode), results may contain 
as many places as 39. 

You learned in Chapter 2 that the TRS-80 displays results of arithmetic 
operations with up to six digits, but no more. The largest decimal number that 
can be expressed with this restriction is 999999. Scientific notation (or floating 
point notation) is used to print large numbers in a short space. 


Large Numbers 






If you tell the TRS-80 to: PRINT 999999 + 1, 


fl 


it will display: 1E+@6 
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We know that 999999 + 1 = 1000000. Therefore, 1E + 06 must be the TRS- 
80’s way to print one million (1000000). This is the way that the TRS-80 displays 
scientific notation. The normal scientific notation format would be: 1 x 10°. But 
remember that the TRS-80 cannot write superscripts. By putting the two forms 
together, we can see the resemblance: 


1E + 06 
1x 10° 


You can see that E stands for exponent, and 06 is the exponent (or power) of ten 
that 1 must be multiplied by to put the number in decimal notation (1x 10° = 
1000000). In other words, move the decimal six places to the right. 

To refresh your memory and show how the TRS-80 displays scientific nota- 
tion, here is a table to show some typical values. 







Decimal Scientific TRS-80 

Notation Notation Notation 

998 9.98 x 10? 998 Chine fn 
9999 9.999 x 10° 9999 display format 
999999 9.99999 x 10° 999999 here 

1000000 1x 10° 1E+06 

12300000 1.23 x 10’ 1.23E+07 

12345680 1.234568 x 10’ 1.23457E + 07 


Small Numbers 


Very small numbers can also become long and cumbersome to work with. Con- 
sider: 0.00000000000123. Once again, we can resort to scientific notation to 
reduce the number to a manageable length. In scientific notation, the number 
would be: 1.23 x 10°”. Notice the negative exponent. This means that the decimal 
point must be moved to the /eft twelve places to put in decimal notation. In other 
words: 

1.2310" =123x—l. or 12 

10"? 102 


A negative exponent means division by powers of ten—move the decimal point 
left. 
A table for small numbers looks like this: 







Decimal Scientific TRS-80 

Notation Notation Notation 

A 1x10" Al 

.09 9x10? .09 

01 1x10? .01 Change in 

.00999999 9.99999 x 107 9.99999E-03 display format 
~ 0001234 1.234 10“ 1.234E-04 ‘a 

.00001234563 1.234563 x 10° 1.23456E-05 
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In addition to displaying some numbers in scientific notation, your TRS-80 
will accept numbers for input in that form. Variables may also be assigned in 
scientific notation. 


Example: 5 cis The display: 125268 
18 A = 1.5E+83 READY 
28 B = 1.2376E+85 S 
38 PRINT A +B 


Notice that the computer accepted the scientific notation variables. However, the 
result was not large enough to require a change from the normal decimal nota- 
tion. 

The computer outputs numbers either in decimal or scientific notation, 
depending on the magnitude of the number. The range of values with the format 
used to display them is shown below: 


Range of the Displayed Number Display Format 
Number > 1000000 Scientific notation 
.01 < number < 1000000 Decimal notation 
-.01 < number < .01 Scientific notation 
-1000000 < number < - .01 Decimal notation 
Number < -1000000 Scientific notation 


or on the number line: 


-1000000 -.01 0 +.01 + 1000000 


- -— tS Oe +H Pad+--+t+  - - 


es es | ere 
scientific decimal scientific decimal scientific 


The display format for single-precision numbers allows for six digits, a sign, a 
decimal point, and a trailing blank space. Typical arrangements are shown below. 














Sign blank p-fi tz] [sfa[s[eT | 
for positive 4 L_[2i4[sfe].]: fal] 


numbers a cla 
Digits with decimal point £ Trailing blank 


This format must allow for a sign for the number, six digits, a decimal point, the 
letter E, the sign of the exponent, a two-digit exponent, and a trailing space. 


| i]. tatstatsfelet+fol7y | 
| tat. [s{7fels tale l- Total | 
l-is|.fafelat7{i fel-Tolel | 
L-l:'{.TaT2tsts{7fel-TolsT | 
fr * 
Sign 6 digits plus E Sign Two-digit Trailing 
decimal point exponent space 
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Rounding Numbers 


When performing arithmetic operations using single-precision arithmetic, the 
TRS-80 rounds off numbers to six digits. In order to do this, it actually uses the 
seventh digits of the numbers inside the computer. In other words, single-preci- 
sion numbers are stored in the computer with seven digits of precision, but they 
are printed out with six digits of precision. For example: 


—Inside the TRS-80: 31.08342 + 31.08442 = 62.16784 
but it displays: 62.1678 


—and inside the TRS-80: 31.08344 + 31.08442 = 62.16786 
but it displays: 62.1679 


Other examples that you can try on your TRS-80: 


Enter TRS-80 Display 
PRINT 288.1113 + 288.1111 416.222 
PRINT 288.1113 + 288.1112 416.223 
PRINT 192.0314 + 182.8319 284.862 
PRINT 182.8314 + 182.8315 284.863 


Suppose that you want to round a number to a specific place—for example, 
the tenths place. The decision as to whether to round up or round down is deter- 
mined by whether you are more or /ess than halfway between two values. For ex- 
ample: 

10.83 is closer to 10.8 than to 10.9—round down 
10.84 is closer to 10.8 than to 10.9—round down 
10.86 is closer to 10.9 than to 10.8—round up 
10.87 is closer to 10.9 than to 10.8—round up 
10.85 is halfway—convention used—round up 


The value .05 is halfway between one given value in the tenths place and 
the next higher value in the tenths place: 


05 = '/2 of «1 
or .5x.1 = .05 


Notice the result of adding .05 to these examples: 


10.831 + .05 = 10.881 
10.841 + .05 = 10.891 
10.851 + .05 = 10.901 
10.861 + .05 = 10.911 


The number in the tenths place is now the 
desired value for the rounded result. 
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We then go through some arithmetic manipulations to produce the desired result. 
The complete process is: 


1. Add .05 to the original value 
2. Multiply by 10 

3. Take the INTeger function 
4. Divide by 10 


This can all be done in one PRINT statement. Examples: 


Statement Display 
PRINT INT((18.831 + .95)*18)/719 18.8 
PRINT INT((18.841 + .85)*19)/18 19.8 
PRINT INT((18.851 + .85)*19)/18 12.9 
PRINT INT((18.861 + .@5)*18)/18 18.9 
PRINT INT((18.871 + .85)*18)/19 12.9 


Since you will want to round off numbers to other places than tenths, here 
is the method for several places (where A is the number to be rounded): 


Rounding Place Statement 

thousandths PRINT INT((A + .8985)*1999)/1999 
hundredths PRINT INT((A + .985)*198)/199 
tenths PRINT INT((A + .85)*19)/19 

ones PRINT INT((A + .5)*1)71 

tens PRINT INT((A + 5)*.1)7.1 
hundreds PRINT INT((A + 58)*.91)7.91 
thousands PRINT INT((A + 588)*.861)/.981 


In general, the statement has the form: 
PRINT INT((A + B)*C)/C 


where: A is the original number, 
B is half the unit value of the desired rounded place, and 
C is the reciprocal of the unit value of the desired rounded place. 


Typical examples: 


Rounding Place Statement Display 
thousandths PRINT INT( (283.7465 +.9985)*1990)/1099 283.747 
hundredths PRINT INT( (283.7465 + .985)*199)/190 283.75 
tenths PRINT INT((283.7465 + .85)*19)/18 283.7 
ones PRINT INT((19283.7465 + .5)*1)/1 19284 
tens PRINT INT((19283.7465 + 5)*.1)/.1 19280 
hundreds PRINT INT((19283.7465 + 58)*.91)/7.91 19300 
thousands PRINT INT((19283.7465 + 588)*.991)/.981 19000 














Message 
BS 


CN 


DD 


FC 


FD 


ID 


LS 
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Error Messages 


Error 


Subscript out of Range 


Can’t Continue 


Redimensioned Array 


Illegal Function Call 


Bad File Data 


Illegal Direct 


String Too Long 


Explanation 


An attempt was made to assign a 
matrix element with a subscript 
beyond the DIMensioned range. 


A CONT was issued at a point 
where no continuable program ex- 
ists (as after a program was 
ENDed or EDITed). 


An attempt was made to 

DIMension a matrix that had been 
previously dimensioned. It is good 
practice to put all DIM statements 
at the beginning of your programs. 


An attempt was made to execute 
an operation using an illegal 
parameter. 


Data input from an external source 
(such as tape) was not correct or 
was in improper sequence, etc. 


The use of INPUT as a direct 
command. 


A string variable was assigned a 
string value that exceeded 255 
characters in length. 
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Message 


L3 


MO 


NF 


NR 


OD 


OM 


OS 


OV 


RG 


RW 


SN 





Error 


Disk BASIC only 


Missing Operand 


NEXT without FOR 


No RESUME 


Out of Data 


Out of Memory 


Out of String Space 


Overflow 


RETURN without GOSUB 


RESUME without error 


Syntax Error 


Explanation 


An attempt was made to use a 
statement, function, or command 
that is available only when the 
TRS-80 Mini Disk is connected via 
the Expansion Interface. 


An operation was attempted 
without providing one of the re- 
quired operands. 


NEXT is used without a matching 
FOR statement. Also occurs if 
NEXT variable statements are 
reversed in a nested loop. 


End of program reached in 
error-trapping mode. 


A READ or INPUT # statement 
was executed with insufficient data 
available. DATA statement may 
have been lefi out or all data may 
have been read from tape or 
DATA. 


All available memory has been 
used or reserved. Can be caused by 
large matrix dimensions or nested 
branches. 


The amount of string space 
allocated was exceeded. 


A value that was input or was 
derived is too large or too small 
for the computer to handle. 


A RETURN statement was 
encountered before a matching 
GOSUB was executed. 


A RESUME was encountered 
before ON ERROR GOTO was ex- 
ecuted. 


This usually is the result of 
incorrect punctuation, an open 
parenthesis, an illegal character, or 
a misspelled command. 


Message 


ST 


™ 


UE 


UL 


Error 


String Formula Too 
Complex 


Type Mismatch 


Unprintable Error 


Undefined Line 


Division by Zero 
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Explanation 


A string operation was too 
complex to handle. Break up the 
operation into shorter steps. 


An attempt was made to assign a 
nonstring variable to a string or 
vice versa. 


An attempt was made to generate 
an error using an ERROR sState- 
ment with an invalid code. 


An attempt was made to refer or 
branch to a nonexistent line. 


An attempt was made to divide by 
zero. 
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APPENDIX E 


Print and Graphics Layout Sheets 





Print and graphics layout sheets are shown proportionally smaller to fit the size 
of our book pages. You can buy them full size from Radio Shack. 
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Teas Display Worksheet 
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E/Video Display Worksheet 
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Reserved Words 





Although it is convenient to use descriptive words for variable names in a pro- 
gram, some words will produce an error message. You cannot use variable names 
that contain words with special meaning in BASIC. A complete list of such 


words is given below. 


Reserved Words* 


EDIT LOAD 
ELSE LOC 
END LOF 
ERL LOG 
ERR MEM 
ERROR MERGE 
EXP MID$ 
FIELD MKD$ 
FIX MKI$ 
FOR MKS$ 
FRE NAME 
GET NEW 
GOSUB NEXT 
GOTO NOT 
IF ON 
INKEY$ OPEN 
INP OUT 
INPUT PEEK 
INSTR POINT 
INT POKE 
KILL POS 
LEFT$ PRINT 
LET PUT 
LSET RANDOM 
LEN READ 
LINE REM 
LIST RESET 





_ RESTORE 


RESUME 
RETURN 
RIGHTS 
RND 
SAVE 
SET 
SGN 
SIN 
SQR 
STEP 
STOP 
STRINGS 
STRS 
TAB 
TAN 
THEN 
TIMES 
TROFF 
TRON 
USING 
USR 
VAL 
VARPTR 
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a ns =" 


Examples of improper use of reserved words: 


OUTCOME = A + B q——————— OUT is reserved 
enc akiag 08 AND is reserved 
= + 
~-_ ss 
STABLE = 14 See POS and EXP are reserved 
CONFUSING = A/(A + 3) TAB is reserved 


FRED = F*RED ie ete ON, SIN, and USING are reserved 
FRE is reserved 


*Many of these words have no function in LEVEL II BASIC; they are reserved for use in LEVEL II 
DISK BASIC. None of these words can be used inside a variable name. 
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ASCII Codes 


Function or 
Character 


None 

Backspaces and erases current 
character 

None 

Carriage returns 

Turns cursor on 

Turns cursor off 

None 

Converts to 32 character mode 
Backspace cursor <— 

Advance cursor > 

Downward line feed 4 

Upward line feed t 

Home, return cursor to display 
position (0,0) 

Move cursor to beginning of 
line 

Erase to end of line 

Clear to end of frame 

Space 








Character 


WOMmAAINUNRWNK O™* 


MMUAW>SO°VVEAT 
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Code Character Code Character 
71 G 86 Vv 
72 H 87 WwW 
73 I 88 Xx 
74 J 89 Y 
75 K 90 Z 
76 L 91 t or [ 
77 M 92 \ 
78 N 93 <_ 
79 O 94 ad 
80 P 95 a 
81 Q 128 Space 
82 R 
83 S Codes 96-127 provide lower- 
84 T case codes for the letters whose 
85 U codes are 64-95. 




















Addition, 22 
ASC function, 198 
ASCII code, 198, 203 
character codes, 204 
Arithmetic, 22, 25 
Array, 214 
clearing elements, 225 
strings, 222 
two dimensional, 233 
using INPUT, 218 
using READ and DATA, 216 


BASIC, 3 
Level II, 4 
Birthday Card program, 138 
message, 139 
Blink program, 68 
Board Generator program, 304 
BREAK key, 44 


Cassette recorder, 2, 6 
Catenation, 300 
Chaos program, 67 
Chips, 2, 3 
CHR function, 203, 296 

using immediate mode, 297 
CLEAR key, 14 

reserving space, 55 
CLEAR N statement, 186 
Computing averages, 117 
Computerized Directory Search, 318 
CONT command, 288 
Countdown-Blastoff program, 99 
Create-A-Character program, 301 
Cursor, 13 


Index 


DATA statement, 161 
format, 163 
out of data error, 164 
using FOR-NEXT, 166 
using mixed numeric data, 172 
using mixed string data, 172 
using strings, 171 
Debugging, 282 
immediate mode, 288 
review of commands, 291 
Degrees Celsius, 28 
Degrees Fahrenheit, 28 
Diameter of a wheel, 66 
distance travelled, 66 
DIM statement, 220, 227, 240 
Direct statements, 11, 18 
Division, 24 
Draco program, 193 
Dragon Capture program, 310 


EDIT, 259, 
cancel-and-restart command, 276 
cancel-and-exit command, 281 
change command, 278 
delete command, 278 
end-of-line-and-insert command, 269, 273 
format, 261 
hack-and-insert command, 271 
list command, 268, 271 
save-changes and exit command, 281 
search-and-kill command, 280 
search command, 265 
repeat count, 267 
review of commands, 290 
UL etror, 262 
using space bar, 263 

ENTER key, 13 
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Errors, 45 
correcting, 19 
correcting entire line, 21 
ESP program, 68 


Firefly program, 67 
Flag, 115, 164 
Flash and Move Routine, 306 
Dragon section, 307 
Floating point numbers, 33, 98 
FOR-NEXT statement, 76, 89 
counting program 92 
general form, 91 
numeric variable, 78 
time delays, 77, 93 
using colon, 79 
using STEP, 98 
Frogs program, 315 
comments, 317 
Frog Jumping program, 179 


Games, 114 
number guessing, 114, 120, 121 
letter guessing, 119 

GOSUB statement, 83 

GOTO statement, 46 

Graphics, 302 

Guess My Letter program, 200 


IF-THEN statement, 111 
conditions, 112, 114 
flag, 115 
general form, 113 

IF-THEN-ELSE statement, 152 

Immediate statements, 11 

INKEY function, 148 
value of, 149 

INPUT statement, 56, 61 
assigning values, 65 

Interrupting a program, 150 


Keyboard, 2, 5 


LEN, 190 

LET statement, 52 
optional, 53, 64 

Letter Guessing Game, 119 

Line number, 40 

LIST, 43 

Loops, 76 


Mandala Ever Chaning program, 144 
Memory, 4, 40 

Metric, 25 

Modular, 296 

Microcomputer, 2 





Multiple statements, 80, 89 
Multiplication, 23 


N factorial, 97 

Number Guessing Game, 114 

Numeric variables, 63, 65 
using words, 136 

Numerical expression, 22 


Overflow error, 98 


POS, 176 
using numeric expressions, 178 
Positive-Negative, Zero program, 283, 285 
Powers of numbers, 30 
Power supply, 2, 6 
PRINT statement, 17 
empty statement, 61 
LEN, 190 
POS, 176 
positions, 85 
PRINT@, 86, 299 
quotation marks, 18 
rounding, 29 
semicolon spacing, 48 
strings, 18, 207 
TAB, 168 
using parenthesis, 27 
without quotation marks, 22 
Printing a table, 242 
totals, 245 
Program, 4, 40 
entering, 40 
erase, 41 
list, 43 
storing, 44 
Prompt, 14 


RAM, 5 
Random numbers, 106 
Reaction Time program, 153 
READ statement, 161 
using FOR-NEXT, 166 
using FOR-NEXT READ, 172 
using more than one item, 165 
using mixed numeric data, 172 
using string data, 172 
Recipe adjustment program, 322 
REMARK statement, 126 
RESET statement, 140 
RESTORE statement, 174 
RETURN statement, 83 
RND function 68, 106, 125 
using integers, 126 
using variables, 107 
ROM, 4 

















SET statement, 133 

Sequence, 95 

Shape Matching program, 311, 314 
Spaceship display, 302 


Starfall program, 68, 135, 148, 151, 165,175 


Stars program, 221 
Star Twinkling program, 110 
inside a box, 142 
Statement,40 __ 
Strings, 18,22, 50 
catenation, 187, 189 
CLEAR N, 186 
comparing, 198, 202 
LEFT, 191 
LEN, 190 
length of, 51,55 
MID, 196 
reserving space, 55 
RIGHTS 194 
trailing spaces, 60 
variable, 52, 60, 118 
Subroutine, 82 
time delay, 82 
Subscripted variable, 214 
double subscripts, 233 
errors, 219 
variables as subscripts, 215 


Subtraction, 23 
Syntax error, 16 


TAB function, 168 
positions, 169 
Time delay, 77, 81 
FOR-NEXT, 93 
variable, 83 
Trace, 286 
TROFF function, 286 
TRON function, 286 
TRS-80 Microcomputer System, 2 
Two dimensional arrays, 233 
DIM statement, 240 
using READ and DATA, 235 


VAL function, 312 

Variables, 52 
in mathematical expressions, 64 
numeric, 63, 65 
string, 52, 60 

Video monitor, 2,5, 13, 298 
block numbering, 299 
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= No experience needed & Complete with index and appendixes 
@ Learn BASIC terms and commands & Create rele] odal Come [Se far) 
= “Self-tests” check your progress after every chapter 


Learn to Program Your TRS-80 with 
No Previous Computer Experience! 


Make the most of your TRS-80! Co-autho ob Albrecht, Don 
Inman and Ramon Zamora have combine eir extensive back- capa 
. grounds in the computer field to come up wih this self-teaching | 
., guide for learning BASIC language for use with your Level II | 
--\TRS-80. With the help of this step-by-step manual, you can | 
teach yourself to read, understand and writ rograms for | 
your computer at your owh pace! No matter what your level | 
of experience with computers-from beginne | 
advanced hobbyist or profess onal-you’'ll fin 
mation you need to make your \ omputer wo 
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